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THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
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OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER COPIES 
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TRANSFERRED. 
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CORPORATION. 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL. 
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THIS IS A POP-11 RESIDENT DIAGNOSTIC WHICH CHECKS THE FUNCTIONALITY 
OF A TU80 HAGTAPE SUBSYSTEM WHILE CONNECTED TO A PDP-11 SYSTEM. 
THE PROGRAM PROVIDES ERROR MESSAGES WHICH IDENTIFY FAILING 
FUNCTIONS THAT AID IN THE REPAIR OF THE DEVICE. REFERENCE THE FOLLOWING 
DIGITAL EQUIPMENT DOCUMENTS: 

1. ENGINEERING SPECIFICATION FOR TU80 MAGTAPE CONTROLLER; DOCUMENT 
NUMBER: YM-C194D-022: REVISION NUMBER 2: DATE: 28-JUL-81. 

2. ENGINEERING SPECIFICATION FOR TU80 DIAGNOSTIC PACKAGE; DOCUMENT 
NUMBER: YM-C194F-00; REVISION NUMBER 0; DATE: 2-SEP-81. 

3. ENGINEERING SPECIFICATION FOR TU80 MAGTAPE SUBSYSTEM; DOCUMENT 
NUMBER: YM-C194S-02: REVISION NUMBER 3; DATE: 10-JUN-81. 

4. CIQPMAO XXDP^ PROGRAMMER'S MANUAL; DOCUMENT NUMBER AC-S296A-AC 
DATE: U JULY 1980. 
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HARDWARE, SOFTWARE REflUIREHENTS AND PREREQUISITES 

2.0 HARDWARE, SOFTWARE REQUIREMENTS AND PREREQUISITES 

2.1 HARDWARE REQUIREMENTS 

PDP-11 FAMILY PROCESSOR WITH 32K WORDS OF MEMORY 
TU80 MAGTAPE SUBSYSTEM (DRIVE AND CONTROLLER) 
CAUTION:DIAGNOSTIC REQUIRES 32K WORDS OF MEMORY 
(28K USEABLE I.E. 4K FOR I/O PAGE) 



2.2 OPTIONAL HARDWARE: 

UP TO 4 TU80 CONTROLLERS PER PDP-11 UP TO 1 DRIVES PER CONTROLLER 



2.3 SOFTWARE REQUIREMENTS 



PDP-11 DIAGNOSTIC SUPERVISOR (HSAADO.SYS) 
PDP-11 DIAGNOSTIC LOADER/MONITOR (XXOP«) 



2.4 PREREQUISITES 



JHKSIiS!^'- ^^^'^^ f^'LY CENTRAL PROCESSOR AND NENORV 

FUNCTIONAL CONSOLE TERMINAL 

FUNCTIONAL STANDALONE DIAGNOSTIC SUPERVISOR 
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OPERATING INSTRUCTIONS - OPERATOR COHHANDS 

3.0 OPERATING INSTRUCTIONS 



3.1 OPERATOR COfWANDS 



THE TU80 DIAGNOSTIC IS A POP-11 DIAGNOSTIC SUPERVISOR COMPATIBLE 
PROGRAM. ALL LOADING AND RUN TINE INSTRUCTIONS CAN BE 
REFERENCED IN THE PDP-11 PROGRAMMER'S MANUAL "CIQPMAO XXDP« 
PROGRAMMER'S MANUAL. NUMBER AC-S296A-AC. 

BOOT THE DIAGNOSTIC XXDP MEDIA 

CHMDLBO XXDP* DL MONITOR 28K 
BOOTED VIA UNIT 0 

ENTER DATE (DD-MMM-VY): 29-JAN-82 
RESTART ADDRESS: 153726 
50 HZ ? N <CR> 
LSI ? N Y 

THIS IS XXDP* TYPE "H" OR "H/L" FOR DETAILS 
R CZTUXAO 

CZTUXABINDRS LOADED 

DIA6. RUN-TIME SERVICES REV. D APR 79 

CZTUX-A-0 

t*ftftTU80 LOGIC DIAGNOSTIC**** 

UNIT IS TU80 

DR> 

DRS>START/FLA6:PNT:H0E 

THE ABOVE COMMANDS WILL START THC DIAGNOSTIC. THE COMMAND HAS 
TWO SWITCHES ON WHICH ARE "PRINT EACH TEST NBR AS EXECUTED" 
AND "HALT ON ERROR". 

3.2 HARDWARE PARAMETERS 

AFTER INITIAL STARTING OF THE PROGRAM (START COMMAND TO THE DIAGNOSTIC 
SUPERVISOR). THE PROGRAM WILL ISSUE THE "CHANGE HW?" QUESTION TO ASK IF 
THE HARDWARE PARAMETERS ARE TO BE CHANGED (BY THE OPERATOR). 

ON A 'V (NO) RESPONSE TO THE "CHANGE HW?" QUESTION, THE DIAGNOSTIC WILL 
NOT RUN. IT WILL GIVE THE MESSAGE "NO UNIT". A "Y" IS REQUIRED AND AT 
LEAST A '1" IS REQUIRED AT THE "« UNITS (D)?" QUESTION. 

TS6A/TSD6 s 172522. VECTOR « 224 

ON A "Y" (YES) RESPONSE TO THE QUESTION, THE FOLLOWING QUESTIONS WILL 
THEN BE ASKED TO ALLOW THE OPERATOR TO SELECT THE UNITS TO BE TESTED. A 
VALUE. IF PRESENT. LOCATED TO THE LEFT OF THE QUESTION MARK IS THE 
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OPERATING INSTRUCTIONS 



DEFAULT VALUE THAT WILL BE TAKEN !F ONLY A CARRIAGE RETURN IS TYPED AS A 
RESPONSE. A "(D)" IN A QUESTION INDICATES THAT A DECIMAL NUMBER IS 
REQUIRED AS A RESPONSE. AN "(0)" INDICATES AN OCTAL NUMBER IS BEING 
SOLICITED. AN "(L)" INDICATES THAT A LOGICAL RESPONSE IS TO BE MADE 
•V FOR YES. FOR NO. 

f UNITS (D) ? <ENTER THE NUMBER OF N7AS4 CONTROLLERS 
PRESENT TO BE TESTED> 

UNIT 0 

DEVICE ADDRtSS (0) 172S22 ? <ENTER THE ADDRESS OF THE 

TSSR REG1STER> 

VECTOR (0) 224 ? <ENTER ADDRESS OF INTERRUPT 

VECTOR> 

THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 
UNITS (CONTROLLERS) SPECIFIED IN THE "# UNITS?" QUESTION. LOGICAL UNIT 
NUMBERS ARE ASSIGNED IN ORDER. BEGINNING AT 0. UP TO FOUR UNITS CAN BE 
SELECTED FOR TESTING. 



3.3 SOFTWARE PARAMETERS 

THE FOLLOWING QUESTIONS ARE ASKED ON A START. RESTART. OR CONTINUE ; 
THEY ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEHAVES. 

CHANGE SW (L) ? <TYPE Y TO CAUSE THE FOLLOWING 
QUESTIONS TO BE ASKED> 

INHIBIT ITERATIONS (L) N ? <TYPE "Y" TO PREVENT MULTIPLE 

ITERATIONS OF CERTAIN TESTS. 
THIS CAUSES EACH TEST PASS TO 
RUN AS QUICKLY AS POSSIBLE. 
ONLY QUICK-RUNNING LOGIC 
TESTS USE MULTIPLE 
ITERATIONS.> 
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OPERATING INSTRUCTIONS • SAMPLE PRINTOUTS 

4.0 OPERATING INSTRUCTIONS - SAMPLE PRINTOUTS 

4.1 SUCCESSFUL RUN EXAMPLE (PDP-ID 



TST: 001 FIFO EXERCISER TEST 

TST: 002 INITIALIZE #4 TEST 

TST: 003 OFF-LINE REJECT AND REUIND TEST 

TST: 004 BASIC WRITE DATA TEST 

TST: OOS BASIC READ DATA (FORWARD AND REVERSE) TEST 

TST: 006 MANUAL INTERVENTION TEST 

TST: 007 CONFIGURATION TYPEOUT TEST 

TST: 008 SCOPE LOOPS TEST 



0 ERRORS 

NOTE: PROGRAM NOW STARTS OVER AGAIN AT TEST 1 
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OPERATING INSTRUCTIONS - SAMPLE ERROR MESSAGES 



SEQ 8 



5.0 OPERATING INSTRUCTIONS - SAMPLE ERROR MESSAGES 



ERROR MESSAGE EXAMPLE 1 



TST: 001 FIFO EXERCISER TEST 

CZTUX HRO ERR 01610 ON UNIT 00 TST 016 SUB 002 PC: 040624 
FIFO STATUS (IN WORD 9) INCORRECT AFTER WRITE FIFO 

TAPE BUS SIGNALS IN WORD #8: • DESIGNATOR <BIT »> 
PARERR<15> lEOT <12> IFMK <9> IRDy<6> IRWD<2> 
IRESV2<U> IIDENT<11> IHER <8> IONL<S> IFBY<1> 
IRESV1<13> ICER <10> ISPEE0<7> IL0P<4> IFPT<0> 
TAPE BUS SIGINALS IN WORD »9: 
DATMIS<7> ILW<6> 0UTRDY<5> INRDY<4> 
MESSAGE BUFFER ADDRESS - 047352 
MESSAGE BUFFER CONTENTS: 
WORD #0 EXPD: 100020 RECV: 



WORD f1 EXPD: 000012 
WORD #2 EXPD: 000000 
WORD «3 EXPD: 000010 
WORD #4 EXPD: 000000 
WORD #5 EXPD: 000000 
WORD »6 EXPD: 000000 
WORD «7 EXPD: 000000 
WORD #8 EXPD: 070217 
WORD #9 EXPD: 000074 



100020 
RECV: 000012 
RECV: 000000 
RECV: 000010 
RECV: 000000 
RECV: 000000 
RECV: 000000 
RECV: 000000 
RECV: 070217 
RECV: 000034 



XOR: 000000 
XOR: 000000 
XOR: 000000 
XOR: 000000 
XOR: 000000 
XOR: 000000 
XOR: 000000 
XOR: 000000 
XOR: 000000 
XOR: 000040 



ERROR MESSAGE EXAMPLE 2 

CZTUX HRD ERR 00159 ON UNIT 00 TST 001 SUB 005 PC: 026202 
TSSR NOT CORRECT AFTER SPACE RECORDS COMMAND 

TSSR « 100214 

TSSR BITS SET: SC.SSR 

TERMINATION CLASS CODE - UNRECOVERABLE ERROR 

PACKET ADDRESS - 026420 

PACKET WORD f s 140010 

PACKET WORD « * 000010 

PACKET WORD « « 000000 

PACKET WORD « s 000024 



ERROR MESSAGE EXAMPLE 3 



CZTX HRD ERR 00121 ON UNIT 00 TST 001 SUB 002 PC: 023306 
MOT BIT (XSTO) NOT SET DURING REWIND (EXTENDED FEATURES MODE) 
EXPD: 000312 RECV: 000112 XOR: 000200 
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PROGRAM RUN TIMES 



6.0 PROGRAM RUN TINES 



THE AVERAGE RUN TIMES OF THE PROGRAM ARE LISTED BELOU.THESE FIGURES ARE 
TO BE USED AS A GUIDE. THE TIMING WAS DONE ON A PDP-11/34 
PROCESSOR WITH A LA-34 CONSOLE. 

THE PROGRAM RUNS IN TWO MODES; NO ITERATIONS AND DEFAULT MODE. IN THE 
NO ITERATIONS MODE, EACH TEST IS RUN ONCE, WITH NO ITERATIONS. IN THE 
DEFAULT MODE EACH TEST IS REPEATED BY THE NUMBER OF TIMES INDICATED BY 
THE ITERATION COUNT. NO ITERATIONS MODE IS SELECTED BY ANSWERING THE 
INHIBIT ITERATIONS QUESTION WITH A "Y" (YES). 



TEST 
NUMBER 



N/I 
SECS. 



ITER 
SECS 



DEF 
SECS. 



2 
3 
4 
5 
6 
7 
8 



0 
0 
0 
0 
0 



N/A 
N/A 
N/A 



THE TIMES REQUIRED TO RUN TESTS 1 THROUGH 5 IN ONE COMMAND: 



Q.V. 
DEFAULT 



2 MINS 19 SECONDS 
11 MINS 35 SECONDS 
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7.0 TEST SUmARIES 
7.1 TEST 1 • FIFO EXERCISER 



• NHTE: IF THIS TEST DETECTS AN ERROR REPLACE THE TUBO'S • 

• CI *10LLER (fl74S4> • 



THIS TEST USES THE WRITE SUBSVSTEN NENORY CONNAND TO VERIFY 
THE CONTROLLER'S FIFO AND ASSOCIATED STATUS AND CONTROL LOGIC. 

7.1.1 TEST 1, SUBTEST 1:- 

THIS TEST VERIFIES. BY USING THE READ STATUS SELECT CODE. THAT 
THE FIFO STATUS IS IN THE CORRECT INITIAL STATE AFTER THE 
CONTROLLER IS INITIALIZED (INPUT READY TRUE. OUTPUT READY 
AND DATA IN HISS FALSE). THESE STATUS SIGNALS ARE CHECKED 
BY THE CONTROLLER'S SELF-TEST SEQUENCE. SO THIS SUBTEST IS 
ACTUALLY ffORE OF A PARTIAL CHECK OF THE READ STATUS FUNCTION 
THAN THE FIFO STATUS. 

7.1.2 TEST n SUBTEST 2:- 

THIS SUBTEST VERIFIES THE ABILITY OF THE FIFO TO CORRECTLY 
PASS A DATA BYTE FROM INPUT TO OUTPUT. FOR EACH OF THE 2S6 
DATA VALUES (0-777 OCTAL) THE FOLLOWING IS DONE: 

1. INITIAL FIFO STATUS IS CHECKED 

2. THE WRITE FIFO FUNCTION. SPECIFYING A COUNT OF ONE 
BYTE TO BE WRITTEN. IS EXECUTED. 

3. READ STATUS IS EXECUTED AND FIFO STAUS IS CHECKED. 

4. READ FIFO IS EXECUTED AND THE DATA AND FINAL STATUS IS 
CHECKED. 

7.1.3 TEST 1. SUBTEST 3:- 

THIS SUBTEST VERIFIES THE ABILITY OF THE FIFO TO CORRECTLY 
PASS MULTIPLE DATA BYTES FROM INPUT TO OUTPUT. THE FOLLOWING 
SEQUENCE IS DONE WITH VARIOUS DATA PATTERNS AND BYTE COJNTS 
FROM 2 TO 64. 

1. INITIAL FIFO STATUS IS CHECKED. 

2. THE WRITE FIFO FUNCTION. 

3. RESD STATUS IS EXECUTED AND FIFO STATUS IS CHECKED. 

4. READ FIFO IS EXECUTED AND THE DATA AND FINAL STAUS 
IS CHECKED. 

7.1.4 TEST 1. SUBTEST 4;- 

THIS SUBTEST VERIFIES THAT READING THE FIFO WHEN IT IS EMPTY 
CAUSES THE LAST WORD (ILW) STATUS TO ASSERT. 
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7.1.5 TEST 1. SUBTEST 5:- 

THIS SUBTEST VERIFIES THAT WRITING 64. BYTES INTO FIFO. WITHOUT 
READING ANY OUT« CAUSES THE INPUT READY STATUS TO NEGATE. THE 
SUBTEST THEN VERIFIES THAT UTITING A 65TH BYTE INTO FIFO CAUSES 
THE DATA IN HISS STATUS TO ASSERT. NEXT IT IS VERIFIED THAT THE 
ORIGINAL 64 BYTES CAN BE READ OUT CORRECTLY AND THAT THE DATA 
HAS NOT BEEN CORRUPTED. 



7.1.6 TEST 1 SUBTEST 6:- 

THIS SUBTEST VERIFIES THAT THE RESET FIFO FUNCTION WITHIN THE 
WRITE niSCELLANIOUS CONTROL 1 FUNCTION INITIALIZES THE FIFO TO 
THE CORRECT INITIAL STATUS. THE FOLLOWING STEPS ARE PERFORKED: 

1. RESET AN ALREADY INITIALIZED FIFO AND CHECK FOR 
PROPER STATUS. 

2. WRITE A VARYING NUMBER OF BYTES (1-65. ) INTO THE 
FIFO AND VERIFY THAT AFTER EACH BLOCK OF BYTES IS 
WRITTEN THE FIFO CAN BE RESET TO ITS INITIAL STATE. 



7.2 TEST 2 - INITIALIZE #4 



* NOTE: IF THIS TEST DETECTS AN ERROR REPLACE THE TUSO'S 

• CONTROLLER (N74S4) 



THIS TEST VERIFIES THAT WRITING INTO THE TSSR RETURNS THE 
CONTROLLER TO ITS INITIALIZED STATE FRON VARIOUS CONDITONS. 



7.3 TEST 3 • OFF LINE REJECT AND REWIND TEST 



THIS TEST VERIFIES BASIC TAPE NOTION COfWAND DECODING AND BASIC 
OPERATION OF THE REWIND POSITIONING COfWAND. IT DOES 
NOT NECESSARILY DEMONSTRATE THAT THE TRANSPORT AN BE 
REWOUND FROM ^N ARBITRARY POSITION ON THE TAPE. SUBSEQUENT 
TESTS INPLlCriV CHECK THE OPERATION OF THE REWIND 
COMMAND SINCE THEY MUST TYPICAILY REWIND THE TAPE IN 
IN THE NORMAL fOURSE OF THEIR TtST SEQUENCES. THE TEST 
CONSISTS OF THE FOLLOWING THREE SUBTESTS: 



7.3.1 TEST 3. SUBTEST 1:- 

THIS SUBTEST VERIFIES THAT ALL TAPE NOTION COMMANDS (WITH 
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VALID MODE CODES) TERMINATE UITH FUNCTION REJECT AND OFF 
LINE STATUS UHEN THE TAPE TRANSPORT IS OFF-LINE. 

7.3.2 TEST 3. SUBTEST 2:- 

THIS SUBTEST VERIFIES THAT A REWIND COMMAND, UITH THE CLEAR 
VOLUME CHECK (CVC) BIT CLEAR IS REJECTED IF THE VOLUME CHECK 
(VCK) FLAG IS SET. 

7.3.3 TEST 3. SUBTEST 3:- 

THIS SUBTEST VERIFIES THAT A REWIND COMMAND UITH A CVC«1 CLEARS 
VCK AND RETURNS PROPER STATUS IN THE MESSAGE BUFFER. 

7.4 TEST 4 - BASIC WRITE DATA TEST 

• NOTE: THIS TEST MUST HAVE A GOOD MAGTAPE IN THE DRIVE ANY • 

* TAPE ERRORS WILL BE DISPLAYED AS TAPE STATUS ALERT • 



THIS TEST VERIFIES THAT THE WRITE DATA (NEXT) COMMAND OPERATES 
CORRECTLY, UP TO THE POINT OF CHECKING THAT THE DATA WAS ACTUALLY 
WRITTEN ONTO THE TAPE CORRECTLY. THE TESTING IN THIS TEST IS LIMITED 
TO VERIFYING THAT THE COMMAND WAS TERMINATED CORRECTLY WITH THE 
CORRECT REGISTER, BUFFER, AND RAM CONTENTS. 

7.4.1 TEST 4. SUBTEST 1:- 

THIS SUBTEST VERIFIES THAT A WRITE COMMAND (ANY VALID MODE CODE) 
WITH THE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS REJECTED IF THE 
VOLUME CHECK (VCK) FLAG IS SET. ALL VALID MODE CODES ARE CHECKED 
(WRITE DATA, WRITE RETRY). 

7.4.2 TEST 4. SUBTEST 2:- 

THIS SUBTEST VERIFIES THAT WRITE DATA COMMANDS WITH CVC^I AND 
THE SWAP BYTES (SWB) BIT CLEAR OPERATES PROPERLY. THE BYTE COUNT 
(RECORD SIZE) VARIES FROM 20 THROUGH 64K IN VARYING INCREMENTS 
(DEPENDING ON WHETHER OR NOT THE DIAGNOSTIC IS RUNNING ON THE 
LONG VERIFICATION MODE). THE TAPE IS NOT REWOUND BETWEEN 
SUCCESSIVE RECORDS BUT IS REWOUND AFTER THE FINAL RECORD IS 
WRITTEN. AN INCREMENTING COUNT PATTERN IS SUPPLIED IN THE DATA 
BUFFER. AFTER EACH LLOCK IS WRITTEN, THE TTSR AND THE TSBA 
REGISTERS AND THE MESSAGE BUFERS ARE CHECKED. 



? A.« TEST 4, SUBTEST 3:- 

THIS SUBTEST VERIFIES THAT WRITE DATA COMMANDS WITH CVCsl AND 
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THE SWAP BYTES (SUB) BIT SET OPERATES PROPERLY. THE TEST SEQUENCE 
IS IDENTICAL TO THAT USED IN SUBTEST 2. THE RESULTS SHOULD BE 
THE SAME. 

7.4.4 TEST 4, SUBTEST 4;- 

THIS SUBTEST VERIFIES THAT A WRITE COMAND WITH AN ILLEGAL 
BUFFER ADDRESS IS REJECTED WITH THE PROPER ERROR STATUS 
AND THAT TAPE DOES NOT HOVE. 

7.4.5 TEST 4, SUBTEST 5:- 

THIS SUBTEST VERIFIES THAT A WRITE DATA COmAND SPECIFYING 
A DATA BUFFER STARTING IN NONEXISTANT NENORY TERMINATES WITH 
THE PROPER ERROR STATUS WITHOUT MOVING TAPE. THIS TEST IS 
SKIPPED IF NONEXISTANT NENORV CAN NOT BE ADDRESSED. 

7.4.6 TEST 4« SUBTEST 6:- 

THIS SUBTEST VERIFIES THAT A WRITE DATA CONNAND SPECIFYING A 

DATA BUFFER IN STARTING IN EXISTANT NEMORY BUT RUNNING INTO NONEXISTANT 

MEMORY TERMINATES WITH THE PROPER ERROR STATUS. A LARGE 

ENOUGH RECORD SIZE IS SPECIFIED SUCH THAT TAPE IS ACTUALLY 

MOVED AND WRITTEN. 



7.S TEST S - BASIC READ DATA TEST (FORWARD AND REVERSE) 



* NOTE: THIS TAPE MUST HAVE A 6000 MAGTAPE IN THE DRIVE * 

* ANY TAPE ERRORS WILL BE DISPLAYED AS TAPE STATUS ALERT • 



THIS TEST VERIFIES THAT THE READ FORWARD AND READ REVERSE COMMANDS 
OPERATE PROPERLY. VARIOUS COMBINATIONS OF ODD AND EVEN DATA 
BUFFER BOUNDARIES. RECORD SIZES AND BYTE SWAP CONTROL VARIABLES 
ARE USED. THE TEST FURTHER VERIFIES THE WRITE DATA COMMAND 
BY ACTUALLY READING AND VERIFYING WRITTEN DATA. ALSO TESTED 
ARE PROPER TERMINATIONS ON EXCEPTIONAL OR ERROR CONDITIONS: 
RECORD LENGTH LONG, RECORD LENGTH SHORT. READ REVERSE AT BOT, 
ILLEGAL DATm BUFFER ADDRESSES. AND NONEXISTANT DATA BUFFER 
ADDRESSES. 



7.S.1 TEST 5. SUBTEST 1:- 

THIS SUBTEST VERIFIES THAT THE READ FORWARD COMMAND WITH SWBsQ 
OPERATES PROPERLY. TNE TAPE IS FIRST REWOUND AND THEN WRITTEN 
WITH A SERIES OF TEST RECORDS VARYING IN LENGTH AND DATA 
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CONTENT. THE TAPE IS THEN REWOUND AGAIN AND THE RECORD READ 
SEQUENTIALLY AND RESULTS (STATUS. DATA. ETC.) VERIFIED. THE 
BYTE COUNT ON EACH READ FORWARD COWIAND IS SET TO THE LENGTH 
OF THE EXPECTED RECORD. SO NO EXCEPTIONAL CONDITIONS SHOULD 
OCCUR. 

7.5.2 TEST 5. SJBTEST 2:- 

THIS SUBTEST VERIFIES THAT THE RAD DATA COHNANDS WITH CVC^I AND 
THE SWAP BYTES (SUB) BIT SET OPERATES PROPERLY. THE TEST SEQUENCE 
IS IDENTICAL TO THAT USED IN SUBTEST 2. THE RESULTS. EXCEPT FOR 
RAM CONTENTS SHOULD BE THE SAME. 

7.5.3 TEST 5, SUBTEST 3:- 

THIS SUBTEST VERIFIES THAT A READ FORWARD CONNAND READING A 
RECORD LONGER THAN THE SPECIFIED BYTE COUNT CAUSES TAPE STATUS 
ALERT TERMINATION WITH THE RECORD LENGTH (RLL) BIT SET. 

7.5.4 TEST 5. SUBTEST 4;- 

THIS SUBTEST VERIFIES THAT A READ FORWARD COMMAND READING A 
RECORD SHORTER THAN THE SPECIFIED BYTE COUNT CAUSES TAPE STATUS 
ALERT TERMINATION WITH THE RECORD LENGTH SHORT (RLS) BIT SfcT. 
!T IS VERIFIED THAT THE RESIDUAL BYTE COUNT (RBPCR) IN THE 
MESSAGE BUFFER CONTAINS THE PROPER NONZERO VALUE (E.G. THE 
DIFFERENCE BETWEEN THE ACTUAL BYTE COUNT AND THE ACTUAL 
RECORD LENGTH). 

7.5.5 TEST 5. SUBTEST 5:- 

CPERATES PROPERLY. THE TAPE IS FIRST REWOUND AND THEN WRITTEN 
WITH A SERIES OF TEST RECORDS VARYING IN LENGTH AN DATA 
CONTENT. THE TAPE IS THEN READ IN REVERSE SEQUENTIALLY AND 
AND THE RESULTS (STATUS. DATA. ETC.) VERIFIED. THE BYTE 
COUNT ON EACH READ REVERSE COMMAND IS SET TO THE LENGTH OF 
THE EXPECTED RECORD. SO NO EXCEPTIONAL CONDITIONS SHOULD OCCUR. 

7.5.6 TEST 5. SUBTEST 6:- 

THIS SIOTEST VERIFIES THAT THE READ DATA CONHANOS WITH CVC^I 
AND THE SWAP BYTES (SWB) BIT SET OPERATES PROPERLY. THE TEST 
SEQUENCE IS IDENTICAL TO THAT USED IN SUBTEST 2. THE RESULTS 
EXCEPT FOR RAN CONTENTS SHOULD BE THE SAME. 

7.5.7 TEST 5. SUBTEST 7:- 

THIS SUBTEST VERIFIES THAT A READ REVERSE COMMAND. PEADIN6 A 
RECORD LONGER THAN THE SPECIFIED BYTE COUNT. CAUSES A TAPE 
STATUS ALERT TERMINATION WITH THE RECORD LENGTH LONG (RLL) 
BIT SET. 
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7.S.8 TEST S. SUBTEST 8:- 

THIS SUBTEST VERIFIES THAT A READ RfcVERS COHRAND SPECIFYING A DATA 
BUFFER STARTING IN NONEXISTANT HEnORY TERNINATES WITH THE PROPER 
ERROR STATUS WITHOUT MOVING THE TAPE. 



7.S.9 TEST 5. SUBTEST 9:- 

THIS SUBTEST VERIFIES THAT ILLEGAL BUFFER ADDRESSES CAUSE A 
FUNCTION RcJECT TERMINATION UITH ILLEGAL ADDRESS (ILA) ERROR 
BIT SET. 



7.5.10 TEST 5. SUBTEST 10:- 

THIS SUBTEST VERIFIES THAT A DATA BUFFER ADDRESS. REFERENCING 
NONEXISTANT MEMORY. CAUSES RECOVERABLE ERROR TERMINATION (TCs4). 
WITH THE NXM BIT SET IN THE TSSR, AND THAT THE TAPE IS ULTIMATELY 
POSITIONED PROPERLY. 



7.5.11 TEST 5. SUBTEST 11:- 

THIS SUBTEST VERIFIES THAT A READ REVERSE COMMAND ISSUED WHILE 
THE TAPE IS AT BOT RESULTS IN A FUNCTION REJECT TERMINATION 
WITH THE NONEXECUTABLE FUNCTION (NEF) ERROR BIT SET. 



7.5.12 TEST 5. SUBTEST 12:- 

THIS SUBTEST VERIFIES THAT A READ REVERSE COMMAND ISSUED WHILE THE 
TAPE IS POSITIONED BEFORE THE FIRST RECORD ON TAPE (BUT NOT AT BOT) 
RESULTS IN TAPE STATUS ALERT. 



7.6 TEST 6 - MANUAL INTERVENTION 

THE MANUAL INTERVENTION TEST IS A STANDALONE ROUTINE (NOT REALLY 
A "TEST") THAT ALLOWS THE OPERATOR TO CHECK OUT VARIOUS ELEMENTS 
AND FUNCTIONS OF THE SUBSYSTEM THAT CAN NOT BE MANIPULATED BY THE 
PROGRAM ALONE. WHEN THIS ROUTINE IS STARTED. IT FIRST PRINTS OUT A 
MENU OF SELECTABLE SUBTESTS AND THEN WAITS FOR THE OPERATOR TO 
TYPE IN A SELECTION CODE. THE ONLY WAYS TO EXIT THIS ROUTINE AND 
RETURN TO THE DIAGNOSTIC SUPERVISOR ARE BY TYPING <CTRL-C> OR 
BY SELECTING CODE 3. SELECTION CODES AND SUBROUTINES ARE: 



CODE 



ROUTINE 



0 



HELP. PRINTS THIS MENU 
OFFLINE/ONLINE ATTENTION TEST 
WRITE»PROTECT TEST 



2 
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3 EXIT (RETURN TO SUPERVISOR) 

EACH MENU ITEM CORRESPONDS TO A SUBTEST AS FOLLOWS: 
PRINTS OUT THE NENU ON THE CONSOLE itRHlNAl. 

THIS ROUTINE INITIALIZES THE CONTROLLER. ISSUES A WRITE CHARACTER- 
ISTICS COWUND TO ENABLE ATTENTION INTERRUPTS, ISSUES A MESSAGE 
BUFFER RELEASE COFWAND. PRINTS A MESSAGE ON THE CONSOLE TERMINAL 
INSTRUCTING THE THE OPERATOR TO TOGGLE THE ON-LINE SWITCH ON THE 
TRANSPORT, THEN WAITS FOR AN ATTENTION INTERRUPT. EACH TINE THC TRANSPORT 
TRANSITIONS FROM ON-LINE TO OFF-LINE OR VICE VERSA, AN ATTENTION INTERRUPT 
SHOULD BE GENERATED. THE PROGRAM WILL REPORT THE INTERRUPT AND THE 
THE CURRENT STATE OF THE TRANSPORT. THE OPERATOP SHOULD VERIFY THAT 
THE REPORTED STATE HATCHES THE STATE INDICATED BY THE LED ON THE 
FRONT PANEL OF THE TRANSPORT. IN ADDITION, WHEN THE TRANSPORT IS PLACED 
OM-LINE, THE PROGRAM ISSUES A SEQUENCE OF TAPE NOTION COMMANDS 
(READ, WRITE. POSITION, ETC.) AND VERIFIES THAT, FOR EACH 
COMMAND. FUNCTION REJECT TERMINATION RESULTS, ALONG WITH THE 
NON-EXECUTABLE FUNCTION (NEF) ERROR BIT BEING SET. 

THIS ROUTINE INSTRUCTS THE OPERATOR TO MOUNT A SCRATCH TAPE REEL 
THAT DOES NOT HAVE A WRITE ENABLE RING INSTALLED, THEN WAITS 
FOR THE OPERATOR TO RESPOND THAT THIS HAS BEEN ACCOMPLISHED. 
UPON THE RESPONSE, THE PROGRAM VERIFIES THAT THE TRANSPORT 
SHOWS A WRITE-PROTECTED STATUS, THEN ATTEMPTS TO WRITE DATA 
ON THE TAPE AND EXPECTS THE APPROPRIATE ERROR TERMINATION 
INDICATING THAT THE WRITE FUNCTION COULD NOT BE PERFORMED 
BECAUSE THE REEL IS WRITE PROTECTED. IF THE APPROPRIATE 
TERMINATION IS NOT RECEIVED. AN ERROR IS REPORTED. 

7.8 TEST 8 - CONFIGURATION TYPEOUT 

THIS IS A STANDALONE ROUTINE THAT PRINTS OUT ON THE CONSOLE 
TERMINAL THE CONFIGURATION OF THE M74S4 MODULE AND THE TU80 
SUBSYSTEM. SPECIFICALLY. THE FOLLOWING INFORMATION IS PRINTED: 

1. MICROCODE REVISION LEVEL OF THE M74S4. 

2. NUMBER OF TAPE TRANSPORTS CONNECTED TQ THE CONTROLLER. 

3. UNIT SELECT CODE AND STATE (ONLINE/OFFLINE. WRITE 

ENABLED/PROTECTEO)OF EACH CONNECTED TRANSPORT. 

THE OPERATOR IS EXPECTED TO READ THE PRINTOUT AND VERIFY THAT IT 
MATCHES THE ACTUAL CONFIGURATION AT HAND. IF, FOR EXAMPLE, THE 
PROGRAM INDICATES THAT IT "SEES" TWO TRANSPORTS CONNECTED WHEN IN 
FACT ONLY ONE IS PRESENT, THE OPERATOR MUST INTERPRET THIS AS AN 
ERROR AND ATTEMPT TO FIND THE CAUSE (BAD CABLE, FAULTY UNIT SELECT 
DECODING IN THE TRAN«'*ORT, ETO.CSINCE THE CONTROLLER CAN ONLY 
ACCESS UNIT 0 IF IT .. IN "STANDARD" MODE, THE PROGRAM WILL FORCE THE 
t MODULE INTO EXTENDED NODE VIA THE WRITE SUBSYSTEM MEMORY COMMAND 

IN ORDER TO SCAN FOR CONNECTED TRANSPORTS.] 



THIS ROUTINE. WHEN ITS ACTIONS ARE COMPLETED. WILL EXIT BACK TO 
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THE D1A6M0STJC SUPERVISOR SO THAT IF ADDITIONAL UNITS (CONTROLLERS) 
ARE SELECTED (E.G. FROM THE INITIAL STARTUP DIALOGUE). THE ROUTINE WILL 
BE REENTERED SO THAT THEIR CONFIGURATIONS CAN BE PRINTED. 



7.8 TEST 8 - SCOPE LOOPS 



THIS IS A STANDALONE ROUTINE PROVIDING A NUMBER OF TIGHT "SCOPE 
LOOPS" USEFUL FOR DEBUGGING BASIC REGISTER ACCESS PROBLEMS WITH 
THE M74S4 MODULE. THESE SCOPE LOOPS CAN BE USED UHEN THE NORMAL 
'tOOP ON ERROR" OR "LOOP ON TEST (SUBTEST)" FACILITIES DON*T 
SEEM TO ALLOW THE OPERATOR TO ZERO IN A PROBLEM IN THE EARLY 
TESTS (I.E. THE HARDWARE NAY NOT BE RESPONDING TO A REGISTER 
ACCESS, CAUSING A BUS ERROR TRAP. EVEN THOUGH THE DEVICE ADDRESS 
SELECTED BY THE PROGRAM HATCHES THE THE CONFIGURATION SET UP IN 
THE HARDWARE DIP SWITCHES). THE FOLLOWING MENU OF SCOPE LOOPS 
IS AVAILABLE: 

CODE SCOPE LOOP 



0 HELP. PRINT THIS MENU 

1 TS8A READ ACCESS 

2 TSSR READ ACCESS 

3 INITIALIZE (TSSR WRITE ACCESS) 

4 TSDB HIGH BYTE WRITE ACCESS 

5 TSDB LOW BYTE WRITE ACCESS 

6 TSDB NAINTENANCE-MOOE WORD WRITE ACCESS 

7 EXIT (RETURN TO SUPERVISOR) 



FOR SCOPE LOOPS THAT WRITE INTO REGISTERS. THE PROGRAM PROMPTS 
THE OPERATOR FOR THE DATA TO BE WRITTEN. TYPING <RETURN> CAUSES 
AN EXIT FROM THE SCOPE LOOP BACK TO THE MENU. 

\ 

854 



CZTUXAO TU80 FRONT END PRT B 
PROGRAM HEADER 

836 
837 
843 

844 000000 

845 

846 

852 000000 

853 002000 

854 002000 
002000 

855 
856 
857 
858 
859 
860 
861 

862 002000 

863 002000 
002000 

002000 103 

002001 132 

002002 124 

002003 125 

002004 130 

002005 000 

002006 000 

002007 000 
002010 

002010 101 
002011 

002011 060 
002012 

002012 000001 
002014 

0020U 001217 
002016 

002016 066646 
002020 

002020 067006 
002022 

002022 002124 
002024 

002024 002134 
002026 

002026 067220 
002030 

002030 000000 
002032 

002032 000000 
002034 

002034 000000 
002036 

002036 000000 
002040 

002040 067174 
002042 



INITIALIZE SUPERVISOR MACROS 
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.SBTTL PROGRAM HEADER 

.MCALL SVC 
SVC 

.ENABLE LC 
.NLIST BEX.CND 
.ENABL AMA.ABS 
. « 2000 
B6NN0D TUV2A 

TUV2A:: 
;♦♦ 

; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
: THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 



POINTER B6NSy.BGNSFT.BGNAU,B6NDU,B6NRPT,B6NSETUP 
HEADER CZTUX.A.0,655..0 
LSNAME:: :DIAGN0ST1C NAME 

.ASCII /C/ 

.ASCII m 

.ASCII ni 
.ASCII /U/ 
.ASCII /X/ 
.BYTE 0 
.BYTE 0 
.BYTE 0 



SEO 18 



LIREV:: 






:REVISI0N LEVEL 




.ASCII 


/A/ 


LSDEPO: 


• 




;0 




'.ASCII 


/O/ 


LSUNIT: 


• 




:NUMBER OF UNITS 




'.WORD 


TSPTHV 


LSTim : 


• 




; LONGEST TEST TIME 




'.WORD 


655. 


LSHPCP: 






.•POINTER TO H.W. QUES. 




*.VORD 


LSNARD 


LSSPCP: 


• 




.•POINTER TO S.W. QUES. 




*.yORD 


L8S0FT 


LSHPTP; 


• 

'.WORD 


LSHW 


:PTR. TO DEF. H.W. PTABLE 


LSSPTP: 






;PTR. TO S.W. PTABLE 




'.WORD 


LtSW 


LILADP: 


• 




.-DUG. END ADDRESS 




'.WORD 


LSLAST 


LSSTA:: 






:RESERVEO FOR APT STATS 




.WORD 


0 


LKO:: 


.WORD 


0 




LSOTVP: 


• 




:DIA6N0STIC TYPE 




'.WORD 


0 


LUPT:: 


.WORD 


0 


:APT EXPANSION 


LSDTP:: 






:PTR. TO DISPATCH TABLE 




.WORD 


LtDISPATCH 


LSPRIO: 






.'PlAfiNQSIlC mm PRIORITY 
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rKWinM ncADcR 






000000 








AAAAAA 

UwOOO 


UUcU«iO 






AAAAAA 




Uucw3U 


003 


AA3AC1 


AAV 

00} 






nA9AC3 


AATiAAA 


AASAC^ 


AAAAAA 




WCV^O 


AAAAAA 


uucvou 




AnjA/kA 
wUcUOU 




UVcwOc 




vUcvQc 


A9TA^<L 


aaoaZa 
vvcvO*» 






AAAAAA 
UwUvUw 






vVcVwO 


AAAAAA 


vUcwr U 




vwCvr U 


A99<££ 






nA9A79 


A99A^9 


0A9A7A 






AAAAAA 
UWwwU 


WCVr O 




on9n7A 

UvcUr O 


AATX£9 


nA9inA 




fln9inA 

WC IW 


• W*U39 






AA91A9 


AAAAAA 


AA91AA 




nn9ifu 

wc ' v% 


A91 7£A 


UUC 1 WW 




Wc 1 uo 


A9XA9& 


0A91 in 




0A91 1A 
WC 1 Iw 


A997<A 
veer 9U 


AA9119 
WC lie 




AA9119 


A917tA 
Uc 1 r 30 


AA9114 




0021 H 


OOOOOQ 

WWWWw 


002116 




002116 


000000 


002120 




002120 


000000 
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Lf ENVI : : 
L$EXP1 : : 
LSMREV::' 



LSEF: 



.yORD 
.UORD 

.BriE 

.BYTE 

.WORD 
.WORD 



0 
0 
0 



;FLA6S DESCRIBE HOW IT UAS SETUP 
.'EXPANSION UORD 



:SVC REV AND EDIT # 
CSREVISION 
CSEDIT 

;DIA6. EVENT FLAGS 

0 
0 



LSSPC:: 








LSDEVP: 


.UORD 


0 




• 




• paimTcp Tn nciffrc tvdc ■ tcr 
, ruimcN lu wtVJtc lire LIST 








LMEPP: 


• 




•PTD TA PCPAPT rnnc 




.yORD 


LlRPT 


L$EXP4: 


• 

'.UORD 


0 

w 




LSEXPS: 


• 

' .UORD 


0 




LSAUT:: 






•PTP TA Ann iiMiT TAnc 


LSOUT:: 


.UORD 


lsau 




LtDU 


• PTB TA nPAP IIMIT rnnc 

• r I n a 1 U VnVr UNI 1 LUVC 


LtLUN: : 


.UORD 






*LUIV run CACnliSCNS lU f ILL 


LtDESP: 


.UORD 


0 


• 




• PAtiiTCP TA ntAC nccrotoTiAfti 


L$L0A0 : 


.UORD 






ESLOAD 


: GENERATE SPECIAL AUTOLOAD FMT 

• WbtVCIiniC 9rCWlML MwlULUMV Cni 


LSETP: : 


EflT 






; POINTER TO ERRTBL 


LSICP:: 


.UORD 


0 






:PTR. TO INIT CODE 


LSCCP:: 


.UORD 


LSINIT 






:PTR. TO CLEAN-UP CODE 


LSACP:: 


.UORD 


L$CLEAN 






:PTR. TO AUTO CODE 


LSPRT:: 


.UORD 


LIAUTO 






;PTR. TO PROTECT TABLE 


LITEST: 


.UORD 


LSPROT 






;TE$T NUMBER 




'.UORD 


0 


LSDLV:: 






: DELAY COUNT 


LtHINE: 


.UORD 


0 






:PTR. TO HIGH NEH 




'.UORD 


0 
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865 
866 
867 
868 
869 
870 
871 

872 002122 
002122 
002124 
002124 

873 

874 002124 

875 002126 

876 002130 

877 002132 
002132 
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SEQ 20 



000003 



172522 
000224 
000240 



.SBTTL DEFAULT HARDUARE P-TABLE 



THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUC& OF 
THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE. 



LSHU:: 
OFPTBL:: 



B6NHU DFPTBL 
.WORD LlOOOO-LiHU/2 



LI 0000: 



.UORD 17Z522 

.WORD 224 

.WORD PRIOS 
ENDHW 



; DEFAULT HARD-P-TABLE 



2ND (OF 2) REGISTERS. 
INTERRUPT VECTOR 
INTERRUPT PRIORITY. 



t 
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879 
880 
881 
882 
883 
884 

885 002132 

002132 000004 

002134 

002134 

886 

887 002134 000000 

888 002136 000000 
889 

890 

891 002140 000031 

892 002142 000310 

893 002144 
002144 

894 
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SEO 21 



.S8TTL SOFTWARE P-TABLE 



THE SOFTWARE P-^abLE CONTAINS THE VALUES OF THE PROGRAM 
PARAMETERS i^lAT CAN BE CHANGED BV THE OPERATOR. 



B6NSW 
.WORD 



LSSW: : 
SFPTBL:: 

TRANSTST:: 
NOITS:: 



LERRNAX:: 
GERRNAX:: 

ENOSW 

L10001: 



SFPTBL 

Ll000l-L(SW/2 



.WORD 
.WORD 



0 
0 



.WORD 25. 
.WORD 200. 



ENABLE RAH DUMP 
INHIBIT ITERATION OPTION. 
... 0 * ITERATE. 
...NZ « INHIBIT ITERATE. 
LOCAL (PER TEST) ERROR LIMIT 
GLOBAL (PER UNIT) ERROR LINIT 
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897 
904 
909 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 

928 002144 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 

001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



000040 
000037 
000036 
00003S 
000034 
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.SBTTL GLOBAL EQUATES SECTION 



SEO 22 



.SBTTL GLOBAL EQUATES SECTION 



THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
ARE USED IN MORE THAN ONE TEST. 



EQUALS 
BIT DIFINITIONS 



: GET STANDARD EQUATES. 





100000 


BIT14«« 


40000 

^ WW w 


BIT13«« 


20000 

&VWV 


BIT12» 


10000 


BIT11» 


4000 


BIT10«s 


2000 


BIT09» 


1000 


BIT08" 


400 


BIT07«* 


200 


BIT06«* 


100 


BIT05«« 


40 


Bir04«« 


20 


BIT03«« 


10 


BJT02«« 


4 


BIT01» 


2 


BITOOn 

• 


1 


BIT9«s 


BIT09 


BIT8» 


BIT08 


BIT7«« 


BIT07 


8IT6SB 


BIT06 


BIT5«8 


BIT05 


BIT4«* 


BIT04 


BIT3«» 


BIT03 


BIT2» 


BIT02 


BIT1« 


BITOT 


BIT0» 


BITOO 


: EVENT 


FLAG DEFINITIONS 



EF52:EF17 RESERVED FOR SUPERVISOR TO PROGRAM CONNUNICATION 



EF.START» 


32. 


EF.RESTART» 


31. 


EF.CONTINUE» 


SO. 


EF.NEy«« 


29. 


EF.PtlR» 


28. 



START COMMAND UAS ISSUED 
RESTART COMMAND WAS ISSUED 
CONTINUE COMMAND WAS ISSUED 
A NEW PASS HAS BEEN STARTED 
A POWER-FAIL/POWER-UP OCCURRED 



; PRIORITY LEVEL DEFINITIONS 

J 
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000340 
000300 
000240 
000200 
OOOUO 
000100 
000040 
000000 



000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 

929 

930 002144 



000250 

177572 
177574 
177576 
172516 
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SEO 23 



rRI07«s 


540 


PR106s> 


300 


PRI05» 


240 


PRI04» 


200 


PRI03«« 


140 


PRI02*- 


100 


PRI01-- 


40 


PRIOO« 


0 


; OPERATOR FLAG BITS 


EVL«s 


4 


LOTss 


10 


ADR«s 


20 


IDU-- 


40 


ISR-- 


100 


UAM«s 


200 


BOE«» 


400 


PNTcs 


1000 


PRlK 


2000 


IXEs= 


4000 


IBE» 


10000 


IER» 


20000 


LOEss 


40000 


HOEss 


100000 



KT11 :OEFINE NEmRy MANAGEnENT REGISTERS 

.SBTTL HENORY HANAGENENT DEFINITIONS 
.••KT11 VECTOR ADDRESS 

250 

STATUS REGISTER ADDRESSES 
177572 



mvEC* 

;*ICT11 
SRO« 
SRIs 
SR2« 
SR3* 
.IF NB 
>USER 



177574 
177576 
172516 



, ." PAGE DESCRIPTOR REGISTERS 

UIPORO* 177600 
UIPDRU 177602 
UIPDR2» 177604 
UIPDRS* 177606 
UIPDR4S 177610 
UIP0R5> 177612 
UIPDR6- 177614 
UIPDR7X 177616 
• IF NB 

;*USER 'V PAGE DESCRIPTOR REGISTORS 

UDPORO* 177620 

U0PDR1* 177622 

UDPDR2* 177624 

UDPDR3> 177626 

UDPDR4S 177630 

UDPDR5* 177632 

UDPDR6* 177634 

UDPDR7r 177636 

.ENDC 

;*USER "I" PAGE ADDRESS REGISTERS 



CZ1UKA0 TU80 FRONT END PRT B 
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UIPARO* 177M0 
UIPAR1« 177642 
UIPAR2* 177644 
UIPAR3« 177646 
UIPAR4* 177650 
UIPARSs 1776S2 
UIPAR6* 177654 
UIPAR7S 177656 
• IF NB 

:*USER 'V PAGE ADDRESS REGISTERS 
UDPARO* 177660 
UDPAR1* 177662 
UDPAR2« 177664 
UDPAR3* 177666 
UDPAR4* 177670 
UDPARS< 177672 
UDPAR6« 177674 
UDPAR7S 177676 
.ENDC 
.ENDC 
.IF NB 

:*SUPERVISOR 



SEQ 2^ 



V 



PAGE DESCRIPTOR REGISTERS 

SIPDRO* 172200 
SIPDRIs 172202 
SIPDR2« 172204 
SIPDRSs 172206 
SIPDR4S 172210 
SIPDR5S 172212 
SIPDR6S 172214 
SIPDR7> 172216 

• IF NB 

••SUPERVISOR "D" PAGE DESCRIPTOR REGISTERS 
SDPDROs 172220 
SDPDRU 172222 
SDPDR2* 172224 
SDPDR3> 172226 
SDPDR4S 172230 
SDPDR5> 172232 
SDPDR6« 172234 
SDPDR7S 172236 
.ENDC 

;*SUPERVIS0R "I" 
SIPAROx 172240 
SIPARIs 172242 
SIPAR2* 172244 
SIPAR3* 172246 
SIPAR4S 172250 
SIPAR5* 172252 
SIPAR6« 
SIPAR73 

• IF NB 

.-•SUPERVISOR "D* 
SDPARO' 172260 
SDPAR1* 172262 
SDPAR2* 172264 
SDPAR3S 172266 
SDPAR4* 172270 



PAGE ADDRESS REGISTERS 



172254 
172256 



PAGE ADDRESS REGISTERS 



CZTUXAO TU80 FRONT END PRT B 
MENORY NANAGEHENT DEFINITIONS 



172300 
172302 
172304 
172306 
172310 
172312 
1723U 
172316 



172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 
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SDPARS- 172272 
SDPAR6« 172274 
SDPAft7« 172276 
.£NDC 
.ENDC 

;*KERNEL "1" PAGE DESCRIPTOR REGISTERS 

KIPDRO« 172300 

KIPDRU 172302 

KIPDR2S 172304 

KJP0R3« 172306 

KIPDR4S 172310 

KIPDR5« 172312 

KIPDR6« 172314 

KIPDR7« 172316 

tlf NB 

:*KERNEL 'V PAGE DESCRIPTOR REGISTERS 
KDPDRO* 172320 
172322 
172324 
172326 
172330 
172332 
172334 



KDPDR1 
KDPDR2 
KDPDR3 
KDPDR4 
KDPDR5 

KDP0R6 

KDPDR7S 172336 
.ENDC 

;*KERNEL "I" PAGE ADDRESS REGISTERS 

KiPAROs 172340 

KiPARIs 172342 

KIPAR2* 172344 

KIPAR39 172346 

KIPAR4S 172350 

KIPAR5> 172352 

KIPAR6* 172354 

KIPAR7* 172356 

• IF NB 

: •KERNEL 'V PAGE ADDRESS REGISTERS 

KDPAROs 172360 

KDPARIs 172362 

K0PAR2* 172364 

K0PAR3« 172366 

KDPAR4* 172370 

K0PAR5S 172372 

KDPAR6« 172374 

KDPAR7« 172376 

.ENDC 
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935 

936 

937 

938 

939 

9A0 

9<»1 

942 

943 

944 

945 

946 

947 

948 

949 

950 

951 

952 

953 

954 

955 

956 

957 

958 

959 

960 

961 

962 

963 

964 

965 

966 

967 

968 

969 

970 

971 

972 

973 

974 

975 

976 

977 

978 

979 

980 

981 

982 

983 

984 

985 

986 

987 

988 

989 

990 

991 



000004 
000060 
177560 
177562 



100000 
040000 
020000 
010000 
004000 
002000 
001400 
000200 
000100 
000060 
000016 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 
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.SBTTL TU80 REGISTER AND PACKET DEFINITIONS 



SEQ ib 



SOME GENERAL EQl'ATES. 



ERRVEC-- 
TTlVECss 
TTICSRss 
TTIBFR-s 



4 

60 

177560 
177562 



POINTER TO ERROR VECTOR FOR BUS TINE OUT. 
INTERRUPT VECTOR FOR CONSOLE INPUT 
BUS ADDRESS OF CONSOLE INPUT 
CONSOLE INPUT DATA BUFFER 



:BIT DEFINITIONS FOR TSSR REGISTER 



sc- 


Bin 5 


BIE« 


BIT14 


SCEs 


BIT13 


RNRs 


BIT12 


NXNs 


BIT11 


NBAs 


BIT10 


HIADDRs 


BIT9!BIT8 


SSRs 


BIT7 


OFLs 


BIT6 


FATERRs 


BIT4!BITS 


TERCLSs 


BIT3!BIT2!BIT1 


;♦ 





.•SPECIAL CONDITION 
;BUS INTERFACE ERROR 
.•SANITY CHECK ERROR 
.•MODIFICATION REFUSED 
;NONEXISTANT NEMORY ERROR 
;NEED BUFFER ADDH.SS 
: EXTENDED ADDRESS BITS 
:SUB SYSTEM READY 
:OFF LINE BIT 

; FATAL TERMINATION ERROR COOES 
.-TERMINATION CODES 



:BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 0 
; (XSTO) 



XSOTNK* 


BIT15 


;rAPE MARK DETECTED 


XSORLSs 


BITU 


.•RECORD LENGTH SHORT 


XSOLET* 


BIT13 


; LOGICAL END OF TAPE 


XSORLL* Bin 2 


: RECORD LENGTH LONG 


xsoyLE« 


B1T11 


;URITE LOCK ERROR 


XS0NEF» 


Bino 


;NON EXECUTABLE FUNCTION 


XSOILCs 


BIT9 


: ILLEGAL COMMAND 


XSOILAs 


BIT8 


; ILLEGAL ADDRESS 


XSOMOTs 


BIT7 


;TAPE IN MOTION 


XSOONLs 


BIT6 


.•TRANSPORT ON LINE 


XSOIE* 


BITS 


; INTERRUPT ENABLE 


XSOVCKs 


BIT4 


.•VOLUME CHECK BIT 


XSOPED« 


BIT3 


; PHASE ENCODED DRIVE 


XSOULKs 


BIT2 


;URITE LOCKED 


XSOBOTs 


BIT1 


:BE6INNIN6 OF TAPE 


XSOEOTs 


81 TO 


:END OF TAPE 



:BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 1 
;(XST1) 
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SEO 27 





IftAAAA 

lUUUvU 




U*tUUUw 




A9AAAA 


one 
yyj 


A1 

01 fir 9 




AAAZAA 


oot 
Wf 


AAAAA9 


Wo 




ooo 




lUUU 




1 AA1 










lAAAAA 
1 UVvUV 




iMimuu 


1UU7 


nxc^nn 

U39*illU 


IvUO 


nn9nnn 


inn? 


000900 

lIUUCllll 


innft 

lUUO 


OOO100 

iiuv mil 


inno 


000077 


inin 

III lU 


000007 


mil 




ini9 

III 1 c 




mix 

III 1 ^ 




ini^ 
1111*1 




inic 

1 V 1 3 




mii^ 

III lO 


1 77400 

Iff I w 


1017 


000900 
vvvcw 


mift 

1 w lO 


0001 00 


mio 

1 W 1 T 


000040 


in9n 

1 veil 


000090 


in9i 

lUC 1 


000010 

UwllV III 


in99 


iiwuvini 


in9X 


00000^ 


in9£ 

illc*i 




IIIC3 




in9<i 




in97 

1 vCr 




10911 
lUcO 




1090 

lllCT 


100000 
iinnivii 


mxn 

lU^ 


0X0000 
U^IAIW 


inxi 


090000 


inv9 
1113c 


017400 

III r«llAI 


10XX 


000X77 






lOX^ 




10^ 




10X7 




101A 




ioIq 




10A0 




10A1 
III* 1 




mx9 


OOOOOA 


1043 


000006 


1044 




1045 




1046 




1047 




1048 





X1.DLT : BIT1S :DATA LATE 

XI. SPARE- BIT14 :N0T USED 

XI. COR s BIT13 ;C0RRECTABLE DATA ERROR 

X1.MBZ « BIT12«B!T11«BIT10*Bn9tBIT7«BIT6«BITS*BIT4«BlT3«BIT2teiT0 ;ALyAVS 0 

X1.RBP - BITS ;READ BUS PARITY ERROR 

X1.UNC - BIT1 :UNCORRECTABLE DATA OR HARD ERROR 

;♦ 

:BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 2 

;(XST2} 

xi.OPfo. s BIT1S ;OPERATION IN PROGRESS (TAPE HOVING) 

X2.RCE « BIT14 ;RAN CHECKSUM ERROR 

X2.SP/«REs BIT13«B1T12«BIT1UBIT9*BIT8 ;NOT USED BY TU80 (ALUAYS«0) 

X2.UCF ' BIT10 ;URITE CLOCK FAILURE (FIFO NOT EMPTIED BY TRANSPORT) 

X2.EX1F - BIT7 ;IF WRITE CHAR CND THEN r EXTENDED FEATURES ENABLED 

X2.BUFE s BIT6 :IF WRITE CHAR CND THEN s BUFFERING ENABLED 

X2.REV - 000077 :IF WRITE CMAR CND THEN - MICROCODE REVISION LEVEL 

X2.UNIT s BIT2«BITUBnO :IF GET STATUS THEN - CURRENTLY SELECTED UNIT NO. 

;♦ 

.BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 3 
;(XST3} 



:NICRO-DIAGNOSTIC ERROR CODE 
:NOT USED BY TU80 
:OPERATION INCOMPLETE 
: REVERSE 

•TRANSPORT RESPONSE FAILURE 
:DENSITY CHECK 
;NOT USED ALWAYS 0 
.•REVERSE INTO BOT 



X3.MDE - 177400 
X3.SPARE- BIT7 

X3.0PI = BIT6 

X3.REV - BITS 

X3.TRF - BIT4 

X3.DCK ' BIT3 

X3.MBZ «BIT2*BIT1 

XS.RIB s BITO 

•BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 4 
; (XST4) 

X4.HSP ■ BIT1S .-HIGH SPEED 

X4.RCE * BITU :RETRY COUNT EXCEEDED 

X4.TSII > B1T15 : TRANSPORT SPECIAL MODE 

X4.NBZ ■ BIT12«BIT1UBIT10«BIT9«BIT8 ;NOT USED ALWAYS 0 

X4.URC B 000377 :WIIITE RETRY COUNT FIELD 



TSSR TERMINATION CODES (BIT 0-2) 



TSREJs 3*2 
UNREC- 6 



DEVICE REGISTER OFFSETS 



;COMMAND REJECTED 
:UNRECOVERABLE ERROR 
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SEQ 28 



1049 

10S0 

10S1 

10S2 

10S3 

10S4 

10S5 

10S6 

1057 

10^8 

1059 

1060 

1061 

1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 

1081 

1082 

1083 

1084 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

1094 

1095 

1096 

1097 

1098 

1099 

lica 

1101 
1102 
1103 
1104 
1105 



177776 
177776 
177776 
177776 
177777 
177777 
000000 
000001 



000003 



000017 
000013 
000012 
000011 
000010 
000006 
000005 
000004 
000001 



100000 
040000 
020000 
010000 
007400 
000200 
000140 
000037 



000000 
000400 
001000 
002000 
002400 



000167 
000200 
000020 
000027 
000104 



TSBAss 
TSBALss 

TSDB** 
TSDBL=s 
TSBAHss 

TSDBHs- 
TSSRss 0 
TSSRHss 1 



TSDB ADDRESS BIT DEFINITIONS 
A1716 s BITUBITO 

CONNAND DEFINITIONS 



P.GETSTAT 

P.INIT 

P. CONTROL 

P.FORfMT 

P.POSITION 

P.URTSUB 

P.URITE 

P.URTCHAft 

P.READ 



17 

13 

12 

11 

10 

6 

5 

4 

1 



;TSDB/TSBA REGISTER 
;TSDB/TSBA REGISTER 

;TSDB/TSBA REGISTER HIGH BYTE 

;TSSR REGISTER 

;TSSR REGISTER HIGH BYTE 



.'ADDRESS BITS 17:16 ARE IN 1:0 



GET STATUS 

INITIALIZE 

CONTROL COWIANDS 

FORMAT 

POSITION 

SUBSYSTEM WRITE 

WRITE 

WHITE CHARACTERISTICS 
READ 



COfVUND PACKET HEADER WORD BIT DEFINITIONS 



P.ACK ■ BIT15 

P.CVC « BIT14 

P.OPP « BIT13 

P SUB ■ B1T12 

pInODE « BIT11!BIT10!BIT9!B1T8 

P.IE s BIT7 

P.FNTs BIT6'.BIT5 



P.CND 



37 



CONTROL COfWANO NODE COOES 



PC. RELEASE 
PC. REWIND 
PC.NOOP 
PC.IEREW 
PC. ERASE 



= 0*256. 
= 1*256. 
s 2*256. 
= 4*256. 
= 5*256. 



.•BUFFER AVAIL FOR CONTROLLER 
; CLEAR VOLUME CHECK 
.•REVERSE SEQUENCE OF DATA BITS 
.•SWAP BYTES IN MEMORY 
:EXTENl»£D COMMAND MODE FIELD 
.•INTERRUPT ENABLE 
.•PACKET HEADER TYPE (ALWAYS-O) 
:MAJOR C0MM.''*1D FIELD 



RELEASE BUFFER 

REWIND 

NO-OP 

REWIND IMMEDIATE INTERRUPT 
SECURITY ERASE 



CONTROLLER RAH DEFINITIONS 



RMCHBE6 3 
RMCHEND « 
RMPKTBEGs 
RNPKTEND* 
IWMS6BE6* 



167 

200 

20 

27 

104 



CHARACTERISTICS 10 DATA BEGIN RAM ADDRESS 
CHARACTERISTICS 10 DATA END RAM ADDRESS 
COMMAND PACKET BEGIN RAM ADDRESS 
COMMAND PACKET END RAM ADDRESS 
HtSSAfig BUFFER ftPGlM RAM ADDRFSS 
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SEQ 29 



1106 

1107 

1108 

1109 

1110 

1111 

1112 

1113 

11U 

1115 

1116 

1117 

1118 

1119 

1120 

1121 

1122 

1125 

112* 

112S 

1126 

1127 

1128 

1129 

1150 

1151 

1152 

1155 

1154 

1155 

1156 

1157 

1158 

1159 

1U0 

1U1 

1142 

1U5 

1U4 

IKS 

1U6 

1U7 

1148 

1149 

11S0 

1151 

1152 

11S5 

1154 

1155 

1156 

1157 

1158 

1159 

1160 

1161 

1162 



000117 



000006 
000010 
000012 
000014 
000016 



000002 
000004 
000006 

000010 



000000 
000001 
000002 
000004 



000000 
000001 
000002 
000005 
000004 
000005 
000006 
000007 
000010 
000011 
000020 
000021 
000022 
000025 
000024 



000200 



RfWSGENDs 117 



.-MESSAGE SUFFER END RAM ADDRESS 



:REGISTER DEFINIT50NS IN THE KESSA6E BUFFER 



XSTOs* 
XSTIs* 
XST2«* 
XST5s= 
XST4S8 



;♦ 



6 

s. 

10. 

12. 

14. 



.EXTENDED STATUS REGISTER 0 
:EXTENDED STATUS REGISTER 1 
;EXTENDED STATUS REGISTER 2 
.'EXTENDED STATUS REGISTER 5 
.•EXTENDED STATUS REGISTER 4 



(WORD 4) 
(WORD S) 
(yORD 6) 
(WORD 7) 
(WORD 8) 



;OFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS 



PKLOW = 2 
PKHl s 4 
PKBCNT s 6 

EX8CNT«10 



;L0U ORDER CHARACTERISTIC DATA POINTER 
:H1GH ORDER CHARACTERISTIC DATA POINTER 
.'NUfBER OF BYTES IN DATA PACKET 

.•NUMBER OF BYTES IN EXTENDED DATA PACKET 



:DATA PACKET OFFSETS FOR WRITE SUBSYTEN COMMAND 



BSELO 


« 0 


:BYTE 0 


BSEL1 


- 1 


;BYTE 1 


SEL2 


= 2 


.•WORD 2 


SELDATA 


» 4 


;WORO 5 


;BSELO SELECT COOES FOR WRITE SUBSYSTEM COMMAND 


PW.NOP 


* 0 


;NO-OP 


PW.RDRAM 


s 1 


.'READ RAM 


PW.WTRAM 


' 2 


: WRITE RAM 


PU.RFIFO 


= 5 


:READ FIFO 


PW.WFIFO 


s 4 


.WRITE FIFO 


PW.RDSTAT 


- 5 


;READ STATUS 


PW.UCTL 


s 6 


.'WRITE TAPE CONTROL 


PW.WFMT 


s 7 


;WRITE TAPE FORMAT 


PU.WMISC 


* 10 


:WRITE MISCELLANEOUS 




s 11 


.•WRITE NPR CONTROL 


PW.D22 


* 20 


.DO MICROTEST 22 


PW.D11 


s 21 


.'DO MICROTEST 11 


PW.D15 


= 22 


:D0 MICROTEST 15 


PW.N01511 


s 25 


;DISABLE MICROTEST 11 


PW.ftDEXT 


= 24 


.•READ EXT. TAPE STATUS 



;BSEL1 CODES FOR WRITE TAPE CONTROL 



WC.IFAO 



BIT7 



•IFAP - FORMATTER AftftRfSS 
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SEO 30 



1163 
116A 
116S 
1166 
1167 
1168 
1169 
1170 
1171 
1172 

1173 
1174 

1175 

1176 

1177 

1178 

1179 

1180 

1181 

1182 

1183 

1184 

118S 

1186 

1187 

1188 

1189 

1190 

11V1 

1192 

1193 

1194 

1195 

1196 

1197 

1198 

1199 

1200 

1201 

1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 

1211 

1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 



000100 
000040 
000020 
000010 
000004 
000002 
000001 



000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



000200 
000020 
000010 
000006 
000001 



000000 
000002 
000004 
000006 



000200 
OOClOO 
000040 
000020 



000200 
000100 
000040 
000020 
000010 
000004 
000003 
100000 
0^0000 
020000 



UC.IOTAD s BIT6 

UC.I1TA0 » B1T5 

UC.I5RESV s BIT4 

UCIREW s BIT3 

UC.IRUU = BiT2 

yC.IFEN > B1T1 

MC.I60 s BITO 

;♦ 

;BSEL1 CODES FOR WRITE FORMAT 



yF.IHISP 

UF.IURT 

UF.IREV 

yF.IUFM 

UF.IEDIT 

UF.IERASE 

UF.I3RESV 

UF.I4RESV 



= BIT7 
« BIT6 
s BIT5 
: BIT4 
» BIT3 
s BIT2 
« BIT1 
' BITO 



ITAPO 

ITAD1 

IRESV5 

IREy 

IRUU 

IFEN 

GO 



IHISP 

lURT 

IREV 

lUFM 

lEDIT 

I ERASE 

IRESV3 

IRESV4 



TRANSPORT ADDRESS BIT 0 
TRANSPORT ADDRESS BIT 1 
RESERVED #5 
REWIND 

REWIND AND UNLOAD 
FORMATTER ENABLE 



HIGH SPEED 

WRITE 

REVERSE 

WRITE FILE NARK 

EDIT 

ERASE 

RESERVED #3 
RESERVED #4 



BSEL1 CODES FOR WRITE MISCELLANEOUS SUBCOMMAND 



MS.EXT 
MS.RSFIFO 
MS.RSTAPE 
MS. ATTN 
MS.RSD 
;♦ 

: MS.ATTN SUBCODES 

MSA.NOP 
MSA. VOL 
MSA.NRAH' 



s BIT7 

- BIT4 
« BIT3 

- BIT2'.BIT1 
« BITO 



0*2 
1*2 
2*2 



NSA.FRAM« 3*2 



: INVERT SENSE OF EXTENDED FEATURES SWITCH 
; RESET FIFO AND INPUT PARITY ERRORR 
;RfcSET TAPE STATUS IN 2 FLIP-FLOPS 
.•ATTENTION TRIGGER FIELD 
;RESET TIMER A.B THEN DELAY TIMES IN SEL2 



;NO-0P (NOTHING TRIGGERED) 

:SIMULATE ON-LINE/OFF-LINE TRANSISTION 

: FORCE NON-FATAL RAH ERROR (FORCES ERRCOOE 54) 

: FORCE FATAL RAN ERROR (CAUSES SCE TO SET) 



WRITE SUBSVSTEH WRITE NPR BSELl BIT DEFINITIONS 



NP.IR s BIT7 

NP.OUT « BIT6 

NP.LOOP « BITS 

NP.WRP s BIT4 

;♦ 

; READ STATUS MESSAGE BUFFER BIT DEFINITIONS 



.•INTERRUPT REQUEST (0-1 TRANSITION) 
:TAPE DATA DIRECTION OUT (0- IN) 
.•ENABLE TRANSPORT LOOPBACK 
;WRITE CORRECT PARITY (SET^O TO WRITE WRONG) 



S2.DIN 

S2.ILW 

S2.0UTR0V 

S2.INRDY 

S2.ATINR 

S2.BTINR 

S2.UNDEF 

Sl.FARIN 

S1.I2RESV 

SI.IIRESV 



BIT7 
BIT6 
BITS 
BIT4 
BIT3 
BIT2 

BITl^BITO 

Bins 

BITU 

11112 



WORD #9 BYTE 2 



(UNDEFINED) 
WORD #8 BYTE 



DATA IN MISS 
ILW H 
OUT RDY H 
IN RDY H 
TIMER A FLAG H 
TIMER B FLAG H 

PAR IN H 

IRESV2 

mm - 
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1220 


010000 


SI.IEOT 




« B1T12 


1221 


004000 


S1.I1DENT 


« B1T11 


1222 


002000 


S1.ICER 




« B1T10 


1223 


001000 


S1.IFWC 




« 8IT9 


1224 


000400 


S1.IHER 




« BlT8 


1225 


000200 


SO.ISPEED 


« BIT7 


1226 


000100 


SO.IRDY 




« BIT6 


1227 


000040 


SO.IONL 




« BITS 


1228 


000020 


SO.ILDP 




* BIT4 


1229 


000010 


SO.IDBY 




* BIT3 


1230 


000004 


SO.IRUD 




« BIT2 


1231 


000002 


SO.IFBY 




« BIT1 


1232 


000001 


SO.IFPT 




* BITO 


1233 
123A 




• 
• 


SPECIAL KEYBORD STUFF 1 


1235 


177560 




TKS 


*1 77560 


1236 


177562 




TKB 


*1 77562 


1237 


177564 




TPS 


•177564 


1238 


177566 




TPS 


•177566 


1239 


007776 




HIMEN 


«007776 


1240 




• 
* 


CONTROLLER DEFINITIONS 


1241 


174400 




CSR 


•174400 


1242 


174402 




BAR 


•174402 


1243 


174404 




DAR 


•174404 


1244 


174406 




NPR 


•174406 


124S 




; 






1246 




; 


CONTROLLER CONRANDS 


1247 




; 






1248 


000004 




DL6ETS 


•4 


1249 


000006 




SEEK 


•6 


1250 


000010 




DLRDHD 


•10 


1251 


000014 




READ 


•14 


1252 


000016 




DLRDNH 


•16 


1253 




• 
• 




• 


1254 


000001 




READY 


•1 


1255 


000013 




DLSR 


•13 


1256 


1 77730 




DLERR 


•177730 


1257 


000006 




DLUN 


•6 


1258 


000177 




DLCYL 


•000177 


1259 


100200 




DLDNER 


•100200 


1260 




• 
» 






1261 


177560 




TTICSR 


• 177560 


1262 


177562 




TTIBFR 


« 177562 


1263 


177564 




TTOCSR 


• 177564 


1264 


177566 




TTOBFR 


• 177566 


1265 











: lEOT L 

IIDENT H 
ICER H 
IFNK H 

• IHER H 

•WORD #8 BYTE 0 ISPEED H 
IRDY L 

: lONL L 

I LDP L 
IDBY L 
IRUD L 
IFBV L 
IFPT L 

MOVER PROGRAM 

.•KEYBOARD STATUS REGISTER 
.KEYBOARD DATA REGISTER 
.'CONSOLE PRINTER STATUS REGISTER 
.'CONSOLE PRINTER DATA REGISTER 
.'HIGH MEMORY MASK VALUE 

.'STATUS AND CONTROL REGISTER 
.'DL ADDRESS REGISTER 
.'PLATTER ADDRESS 
.'MULTIPURPOSE REGISTER 



;6ET STATUS COMMAND 
.•SEEK TRACK AND HEAD SELECT 
:READ SECTOR HEADER 
;READ COMMAND 

:READ SECTOR NO HEADER CHECK 

.•DRIVE READY BIT IN STATUS REG. 

.•STATUS AND RESET 

;MASK FOR COVER OPEN 

.•HEADS UNLOADED 

.•MASK FOR CYLINDER ADDRESS 

;DQNE SET OR ERROR SET BITS 

.•KEYBOARD INPUT STATUS 
.-KEYBOARD DATA REGISTER 
.•CONSOLE PRINTER STATUS REGISTER 
:CONSOLE PRINTER DATA REGISTER 



CZTUXAO TU80 FRONT END P>- 
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1267 

1268 

1269 

1270 

1271 

1272 

1275 

1274 

127$ 

1276 

1277 

1278 

1279 

1280 

1281 

1282 

1285 

1284 

128S 

1286 

1287 

1288 

1289 

1290 

1291 

1292 

1295 

1294 

1295 

1296 

1297 

1298 

1299 

1500 

1501 

1502 

1505 

1504 

150S 

1306 

1507 

1508 

1509 

1310 

1511 

1512 

1515 

1514 

1515 

1516 

1517 

1518 

1519 

1520 

1521 

1322 

1325 
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.SBTTL SPECIAL MACROS AND OPDEFS. 



SAVE GENERAL REGS i TO S 



SEO 32 



.MACRO SAVREG 
JSR RS.REGSAV 
.ENOM 



: MACRO TO FORCE AN ERROR 

'.MACRO FORCERROR TAG.NOTSSR 
.NLIST 

.IIF NDF LISTALL. .NLIST 
.LIST 

.IF B NOTSSR 

MOV TSSR(RS).R1 

.ENDC 

MOV FORCER.FORCER 
BNE TAG 

.NLIST 

.IIF NDF LISTALL. .LIST 

.LIST 

.ENDM 



;♦ 

; MACRO TO FORCE AN EXIT TO AVOID SECTION ITERATIONS 
WILL EXIT TO A LABEL IF FORCER IS NEGATIVE 
SO TO FORCE ERRORS AND EXIT ON 1 ERROR SET 

: FORCER TO 177777 

TO FORCE ERRORS AND ITERATIONS SET FORCER TO 1 . 

• m 

Inacro forcexit tag 

.NLIST 

.IIF NDF LISTALL. .NLIST 
.LIST 

HOV FORCER.FORCER 
BMI TAG 

NLIST 

IIF NDF LISTALL. .LIST 
LIST 

ENDM 

♦ 

MACRO TO INCREMENT ERROR COUNTS 

MACRO NEXT.ERRNO 
NLIST 

:;.IIF NDF LISTALL. .NLIST 

ERRN0«ERRN0«1 

::.IIF NDF LISTALL. .LIST 
LIST 
ENDM 



.•READ TSSR 

;IS FORCER SET? (LEAVE C BIT ALONE) 
:BR IF YES 



;IS FORCER NEGATIVE? 
;BR IF YES 



CZTUXAO TUftO FRONT END PRT 
SPECIAL HACROS AND OPDEFS. 

1324 
132$ 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 

1334 000000 

1335 

1336 

1337 

133S 

1339 

1340 

1341 

1342 002144 000000 

1343 

1344 

134S 

1346 

1347 
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.•MACRO TO PERFORR XOR 



S£Q 35 



.MACRO XOR A,B 
mv A,-iSP) 
B.CSP) 
A,B 

(SP)«.B 



BIC 
BIC 
BIS 

.endu 



ENsO 



.SBTTL FORCER - FORCE ERROR FLAG 



THE FOLLOWING LOCATIONS HAY BE PATCHED BY THE USER 
TO OBTAIN THE RESULTS DESCRIBED FOR EACH. 



; INITIALIZE ERROR NUMBER 



FORCER:: 



0 : FORCE TYPE ALL HARD ERRORS (THE ONES CALLED 

; - BY THE HACRO "IFERROR"). AN ERROR NEED NOT • 
; - EXIST. JUST ASSUME AND TYPE THE MESSAGE. 



I 3 



CZTUXAO TU80 fRONT END PRT B 
GLOBAL DATA SECTION 



1349 
1350 
1351 
1352 
1353 
135A 
1355 
1356 
1357 
1358 
1359 

1360 002U6 

1361 002150 

1362 002152 

1363 002154 

1364 002156 

1365 002160 

1366 002162 

1367 002164 

1368 002166 

1369 002170 

1370 002172 

1371 002174 

1372 002176 
1375 002200 

1374 002202 

1375 002204 

1376 002206 

1377 002246 

1378 002250 

1379 002252 

1380 002254 
1781 002256 

1382 002260 

1383 002262 

1384 002264 

1385 002266 

1386 002432 

1387 002576 

1388 002716 
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.SBTTL GLOBAL DATA SECTION 



;TNE GLOBAL DATA SECTION CONTAINS DATA THAT ARF USED 
;IN MORE THAN ONE TtST. 



.THE FOLLOWING DATA ARE SET FOR EACH UNIT AT INIT TINE. 
iSINGLE UNIT DEFAULTS (LISTED) ARE IN THE DEFAULT P-TABLE. 



000000 


• 

EPRTSV: : 


.UORD 


0 


PRINT SWITCH 


000000 


UNITN:: 


.UORD 


0 


UNIT f UNDER TEST. 


000000 


QVP:: 


.WORD 


0 


QUICK VERIFY FLAG. 


000000 


CSRADDR:: 


.WORD 


0 


ADDRESS OF CSR FOR CURRENT DEVICE 


000224 


IVEC:: 


.UORD 


224 


; INTERRUPT VECTOR 


000200 


IPRI:: 


.UORD 


PR 104 


^INTERRUPT PRIORITY. 


000000 


TSTCNT:: 


.UORD 


0 


;NUHBER OF TESTS RUN IN THIS PASS 


000000 


LOOPCNT:: 


.WORD 


0 


IRENAINING ITERATION COUNT FOR TEST 


000000 


OEVCNT:: 


.WORD 


0 


;NUHBER OF DEVICE UNDER TEST 


000000 


FATPL6:: 


.WORD 


0 


;SET IF FATAL ERROR IS DETECTED IN TEST 


000000 


INTRECV:: 


.WORD 


0 


;SET IF TAPE INTERRUPT WAS RECEIVED 


000000 


BENBSW:: 


.WORD 


0 


; BUFFER ENABLE SWITCH SW 0«OFF;1«0N 


000000 


EXPD: : 


.WORD 


0 


; EXPECTED RAH DATA FOR PRAHPKT ROUTINE 


000000 


RECV:: 


.WORD 


0 


{RECEIVED RAN DATA FOR PRAHPKT ROUTINE 


000000 


ERRHI : ! 


.WORD 


0 


rHIGH ADDRESS HEMORY ERROR 


000000 


ERRLO:: 


.WORD 


0 


;LUW ADDRESS MEMORY ERROR 




RANOATA:: 


.BLKi^ 


16. 


;DATA READ FROM RAM PACKET OR MESSAGE BUF AREA 


000000 


RAHSIZ:: 


.WORD 


0 


;RAM DATA SIZE FOR PRAMPKT ROUTINE 


000000 


RCVHIADD:: 


.WORD 


0 


{RECEIVED BUFFER HIGH ADDRESS 


000000 


RCVLOAOD:: 


.WORD 


0 


{RECEIVED BUFFER LOW ADDRESS 


000000 


COUNT:: 


.WORD 


0 


{TEST COUNT PATTERN 


000000 


DATA:: 


.WORD 


0 


{TEST DATA 


000000 


TSTFIAG:: 


.WORD 


0 


{TEST FLAG WORD 


000000 


TSTPTR:: 


.WORD 


0 


{TSTBLK POINTER 


000000 


PRMNO:: 


.WORD 


0 


{PRINT ROUTINE TEMP 




EXPMSG:: 


.BLKB 


100. 


{EXPECTED MESSAGE BUFFER DATA 




RECNSG: : 


.BLKB 


100. 


{RECEIVED MESSAGE BUFFER DATA 




TNPBFR:: 


.BLKB 


80. 


{TEMPORARY STORAGE FOR PRINT 


000000 


HES8FA: : 


.WORD 


0 


{STORES ADDRESS OF MESSAGE BUFFER FOR ERR PRT 



CZTUXAO TU80 FRONT END PRT B 

TSTBLK - TEST DATA TABLE 

1390 
1591 
1592 
1595 
159A 
1395 
1596 
1597 
1598 
1599 
HOC 
U01 
U02 
U05 
U04 
U05 

U06 002720 

U07 002720 000000 

U08 002722 177777 

1409 002724 000001 

1410 002726 000002 

1411 002750 000004 

1412 002752 000010 

1413 002754 000020 

1414 002756 000040 

1415 002740 000100 

1416 002742 000200 

1417 002744 000400 

1418 002746 001000 

1419 002750 002000 

1420 002752 004000 

1421 002754 010000 

1422 002756 020000 
1425 002760 040000 

1424 002762 100000 

1425 002764 177776 

1426 002766 177775 

1427 002770 177775 

1428 002772 177767 

1429 002774 177757 

1450 002776 177757 

1451 005000 177677 

1452 003002 177577 
1435 003004 177377 

1454 005006 176777 

1455 005010 175777 

1456 005012 175777 

1457 003014 167777 

1458 005016 157777 

1459 003020 137777 
1440 003022 077777 
U41 005024 125252 
U42 005026 052S25 
1445 003030 
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.S8TTL TSTBLK - TEST DATA TABLE 

* 

THIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS 

IN SEQUENCE THE DATA IS: 

ALL ZEROS 
ALL ONES 
WALKING ONES 
WALKING ZEROS 
ALTERNATING ONES AND ZEROS 



SEO 55 



TSTBLK:: 

.UORO 
.WORD 
.UORD 
.UORD 
.UORO 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
TBLENDcs. 



0 

177777 

BITO 

BIT1 

BIT2 

Bn3 

BIT4 

BIT5 

BIT6 

BIT7 

BIT8 

Bn9 

BITIO 

BIT11 

BIT12 

BIT13 

BIT14 

BIT15 

•CBITO 

•CBIT1 

•CBIT2 

*CBIT5 

•CBIT4 

•CBIT5 

•CBIT6 

•CBIT7 

*CBIT8 

•CBIT9 

•CBITIO 

•CBITll 

•CBIT12 

•CBIT15 

•CBIT14 

•CBIT15 

125252 

052525 



;ALL ZEROS 
;ALL ONES 

.•DATA FOR WALKING ONES 



.-DATA FOR WALKING ZEROS 



ALTERNATING ONES. ZEROS 

.ALTERNATING ONES, ZERO OPPOSITE FROM ABOVE 



000000 100000 
000000 000000 



003060 000000 



000000 

000000 
000000 
000000 
000000 
000000 
000000 
000000 



CZTUXAO TU80 FRONT END PRT B 
GLOfiAL ENVlROiSMEKT STORAGE 

UA5 
UA6 
U47 
UA8 

U49 003030 
U50 003040 
U51 
U52 
U53 
USA 
U55 

US6 003062 
1A57 

US8 00306A 

1459 003066 

1460 003070 

1461 003072 

1462 003074 

1463 003076 

1464 003100 
1465 
1466 

1467 003102 

1465 003104 

1469 003106 

1470 003110 

1471 003112 

1472 003114 

1473 003116 

1474 003116 

1475 003120 

1476 003122 

1477 003124 

1478 003126 

1479 003130 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
1487 
1488 

1489 003130 

1490 003330 000000 
1491 

1492 003332 000000 
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.S8TTL GLOBAL ENVIRONNENT STORAGE 
•STORAGE FOR DEVICE REGISTERS 

;DUmY DEVICE REGISTERS... 



SEO 



000000 Dumv: 
000000 



DUFLG:: 

NODEV:: 

TEMPI : : 

TEHP2:: 

XXCOW: 

FREE:: 

FRESIZ: 

FREEHI: 

KTFL6:: 



OJOOOOO.O^U 
0,0,0*0.0,0,0,0 



.WORD 0 
.WORD 0 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



0 
0 
0 
0 
0 
0 
0 



000000 


KTENABLE:: 


.WORD 


0 


002000 


PST32W: : 


.WORD 


2000 


000000 


SIFLAG:: 


.WORD 


0 


000000 


BADDAT : : 


.UORD 


0 


000000 


60DAT : : 


.WORD 


0 


000000 


LOOPFL:: 


.UORD 


0 




CTAB:: 






000000 


CTABH:: 


.WORD 


0 


000000 




.WORD 


0 


000000 




.WORD 


0 


000000 




.WORD 


0 


177777 




.WORD 


-1 



:...FOR MULTI-UNIT CHECKOUT. 



;'tROPPED UNIT" FLAG. 

; INHIBITS CODE IN "CLEAN-UP". 

;FLAG TO SAY NO DEVICE. 

:SOME TEMP LOCATIONS. 

;XXDP« COMM BLOCK POINTER. 

;1ST FREE MEMORY ADDRESS... 

;...AND SIZE (IN WORDS). 

.•LAST WORD IN FREE SPACE 

:KT11, MEM AVAIL FLAG - 

;- .WORD 0 s <24K OR NO KT - 

;- NZ s >24K AND KT. 

.SET BY TEST ROUTINES TO FLAG >28K UNDER 
;32W BLOCK ADDRESS FOR 32K START 

• 

•ACTUAL DATA 
.•EXPECTED DATA 

.•CONFIGURATION TABLES. 
: CONFIG WORK. 



TEST 



CTABE:: 

ERROR STATISTICS TABLE (1 WORD 



;END OF MEM TABLE. 
PER UNIT). 64 UNITS MAX: 



0 

100000 » 

10XXXX = 

160000 = 

160001 = 
UXXXX = 



ERTABL: .BLKU 
ERTABE: .WORD 

SKIPT: .WORD 0 



UNIT NOT TESTED 

UNIT ONLINE, NO ERRORS 

UNIT ONLINE, ENCOUNTERED XXXX ERRORS 

UNIT DROPPED, NON-EXISTENT DEVICE REGISTER 

UNIT DROPPED, NOT IDLE AT START 

UNIT DROPPED. ENCOUNTERED XXXX ERRORS 



64. 
0 



.-IsSKlP SUBTEST 0=NO SKIP OF SUBTEST 



L 3 



CZTUXAO TU80 FRONT END PRT B 
GLOBAL TEXT MESSAGES 



U94 
U95 
U96 
U97 
U98 
U99 
1500 
1501 
1502 

iro' 

150<f 
1505 
1506 

1507 00535A 
00S33A 
003334 
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SEQ 57 



124 



150e 
1509 
1510 
1511 

1512 003342 
003342 
003342 

1513 
1514 
1515 
1516 

1517 003400 

1518 003420 

1519 003440 

1520 003443 

1521 003447 

1522 003453 

1523 003457 

1524 003463 

1525 003467 

1526 003474 

1527 003501 

1528 003505 

1529 003511 

1530 003516 

1531 003523 

1532 003530 

1533 003535 

1534 003542 
1535 

1^56 003550 
1 ^7 003603 
1538 003636 
1559 003675 

1540 003716 

1541 003756 

1542 004015 

1543 004021 

1544 004050 



103 



003440 
003501 



.SBTTL GLOBAL TEXT MESSAGES 



THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS. 
MESSAGES, AND A5Cn INFORMATION THAT ARE USED IN 
MORE THAN ONE TESi. 



125 



070 



.•NAMES OF DEVICES SUPPORTED 

DEVTYP <TU80> 
LtDVTYP: : 

.ASCIZ /TU80/ 
.EVEN 

;♦ 

.•TEST DESCRIPTION 

DESCRIPT <CZTUXAO TU80 FRONT END PRT B> 



132 



124 



LSDESC:: 



.ASCIZ /CZTUXAO TU80 FRONT END PRT 8/ 
.EVEN 



;♦ 



;BIT TO ASCII CONVERSION FOR TSSR REGISTER 



003443 
003505 



003447 
003511 



TSSRBIT:: 



123 


103 


000 


IS: 




.ASCIZ 


102 


111 


105 


2$: 




.ASCIZ 


123 


103 


105 


3$: 




.ASCIZ 


122 


115 


122 


4$: 




.ASCIZ 


116 


130 


115 


5$: 




.ASCIZ 


116 


102 


101 


6S; 




.ASCIZ 


102 


111 


124 


7$: 




.ASCIZ 


102 


111 


124 


8$: 




.ASCIZ 


123 


123 


122 


9$; 




.ASCIZ 


117 


106 


114 


10S 




.ASCIZ 


102 


111 


124 


11$ 




.ASCIZ 


102 


111 


124 


12$ 




.ASCIZ 


102 


111 


124 


13$ 




.ASCIZ 


102 


111 


124 


14$ 




.ASCIZ 


102 


111 


124 


15$ 




.ASCIZ 


102 


111 


124 


16$ 




.ASCIZ 
.EVEN 


124 


123 


123 


SFIERR: 


.ASCIZ 


124 


123 


123 


SFHERR: 


.ASCIZ 


040 


040 


116 


NXR: 


.ASCIZ 


045 


101 


040 


NXRX: 


.ASCIZ 


045 


101 


040 


TSSX: 


.ASCII 


045 


101 


040 






.ASCIZ 


045 


116 


045 


FUSI: 


.ASCII 


040 


040 


125 


USl 


• 
• 


.ASCIZ 


040 


040 


111 


NSl: 


.ASCIZ 



1$.2$,3$,4$.5$.6$.7$.8$ 
9$.10$,11$.12$,13$,14$.15$.16$ 



.WORD 

.WORD 

•SC* 

•BIE* 

•SCE' 

*RMR* 

*NXN* 

•NBA» 

•BIT9' 

•BIT8' 

•SSR' 

•OFL' 

•BIT5' 

•BIT4' 

•BIT3' 

•BIT2' 

•Bitr 

•BITO* 



*TSSR ERROR AFTER SOFT INIT* 

*TSSR ERROR AFTER BUS RESET* 

/ NON-EXISTANT DEVICE REGISTER/ 

/U ADDRESS: 106/ 

/M TSBA.TSSR EXP'D: S06XA.I06SN/ 

/lA TSBA.TSSR REC*D: X06U.I06/ 

/XNIA/ 

/ UNEXPECTED INTERRUPT/ 

/ INTERRUPT ^ HpgfTfB. MOT RKglVFD/ 



CZTUXAO TU80 FRONT END PRT B HACRO HIZOO 29-MAR-83 
GLOBAL TEXT MESSAGES 



1545 004113 


045 


116 


045 


FNOINTR: 




1546 004117 


040 


040 


116 


NOINTR: 


.ASCIZ 


1547 004154 


040 


040 


111 


IFAULT: 


.ASCIZ 


1548 004176 


045 


101 


040 


INTX: 


.ASCjZ 


1549 004233 


040 


040 


042 


NOINIT: 


.ASCIZ 


1550 004305 


040 


040 


042 


NSINIT: 


.ASCIZ 


1551 004355 


040 


040 


042 


BRINIT: 


.ASCIZ 


1552 












1553 004425 


000 






NUL: 


.ASCIZ 


1554 004426 


045 


116 


000 


NULCR: 


.ASCIZ 


1555 004431 


045 


101 
116 


040 


EXP60T: 


.ASCIZ 


1556 004465 


045 


045 


EXP6T2: 


.ASCJZ 


1557 004541 


045 


101 


040 


DUAD12: 


.ASCIZ 


1558 004643 


122 


101 


115 


PKTRAH: : 




1559 004711 


040 


040 
122 
123 


103 


SCNE: 


.ASCIZ 


1560 004754 


127 

124 
174 


111 


WRTHS6: 


.ASCJZ 


1561 005011 


123 


URTERR: 


.ASCJZ 


1562 005104 


123 


123 


RDERR: 


.ASCIZ 


1563 










.EVEN 


1564 












1565 












1566 
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SEO 56 



.ASCII /XNU/ 

/ NO INTERRUPT WAS GENERATED/ 

/ INTERRUPT FAULT/ 

/«A CPU PC: X06XA TSBA: 106/ 

/ BUS-INIT" DIDN'T INITIALIZE CONTROLLER/ 

/ "SOFT-INIT" DION'* INITIALIZE THE DPU/ 

/ "BUS-RESET" DIDN'T INITIALIZE THE DPU/ 

// 

/IN/ 

/XA EXP'D: X06XA. REC'D: X06/ 

/XNXA EXP'D: X06XA, X06XNU REC'D: XOXA, X06/ 

/XA RE6(U) WRITTEN TO: X06U RE6(R) READ: EXP'D: X06XA. REC'D: 106/ 
.ASCIZ 'RAN Contents Do Hot Natch Packtt Stnt* 
/ CONFIG DOESN'T NATCH NF6. MASTER/ 
*URITE CHARACTERISTICS Falltd* 

*TSSR Incorrect After WRITE CotMand, More Bits Set Than SSR' 
*TSSR Incorrect After READ COMsand, More Bits Set Than SSR' 



N 3 



CZTUXAO TU80 FRONT END PRT B 
GLOBAL ERROR REPORT SECTION 



1568 
1569 
1570 
1571 
1572 
1573 
1574 
1575 

1576 005176 
005176 

1577 005176 
005176 
005202 
005206 
005212 
0O52U 
005216 

1578 005222 

1579 005226 
005226 
005226 

1580 
1581 
1582 
1583 
1584 
1585 

1586 005230 

1587 005232 

1588 005234 

1589 005236 

1590 005242 
005242 
005246 
005252 
005254 
005256 

1591 005262 
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SEO 39 



013746 
012746 
012746 
010600 
104415 
062706 
004737 



104423 



.SBTTL GLOBAL ERROR REPORT SECTION 



003062 
003675 
000002 



000006 
005230 



THE GLOBAL ERRO" REPORT SECTION CONTAINS THE PRINTB AND PRINTX 

CALLS THAT ARE UStt) IN MORE THAN ONE TEST. 

ASCII TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION. 



NXRERR:: 



BGNHSG NXRERR 



LI 0002: 



PRINTX 
NOV 

mv 

NOV 

NOV 

TRAP 

ADD 

JSR 

ENDMS6 



«NXRX,NODEV 

NOOEV,-(SP) 

fNXRX.-(SP) 

#2.-(SP) 

SP.RO 

CSPNTX 

i6,SP 

PC, EXTEND 



;NON-EXISTANT DEVICE REGISTER. 
;NODEV - NEXH ADDRESS. 



: PRINT EXTENSION IF REQUIRED. 



TRAP C$NS6 



THIS ROUTINE APPENDS A UNIQUE EXTENSION (IF REQUIRED) 
TO ANY OF THE ABOVE ERROR SIGNATURES. 



0 = NO EXTENSION. 



005727 




EXTEND: 


TST 


<PC)* 


000000 




EXTA: 


0 




001402 






BEO 


1$ 


004777 


177770 




JSR 


PC.BEXTA 


012746 




U: 


PRINTX 


iNULCR 


004426 




NOV 


iNULCR.-(SP) 


012746 


000001 




NOV 


il.-(SP) 


010600 






MOV 


SP.RO 


104415 






TRAP 


CSPNTX 


062706 


000004 




ADD 


#4.SP 


000207 






RTS 


PC 



APPEND EXTENSION TEXT, 
PRINT A BLANK LINE 



CZTUXAO TU8C FRONT END PRT B 
PRITSSR - PRINT TSSR CONTENTS 



159A 
1595 
1596 
'597 
159S 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1608 
1609 
1610 
1611 

1612 005264 

1613 005264 

1614 C05270 010104 

1615 005272 
005272 010446 
005274 012746 
005300 012746 
005304 010600 
005306 104414 
005310 062706 

1616 005314 010400 

1617 005316 004737 

1618 005322 103410 

1619 005324 
005324 012746 
005330 012746 
005334 010600 
005336 104415 
005340 062706 

1620 005344 010403 

1621 005346 042703 

1622 005352 001434 

1623 005354 012702 

1624 005360 012701 

1625 005364 005703 

1626 005366 001413 

1627 005370 000241 

1628 005372 006103 

1629 005374 103006 

1630 005376 011100 

1631 005400 112022 

1632 005402 001376 

1633 005404 112762 

1654 005412 005721 

1655 005414 000763 

1636 005416 105042 

1637 005420 
005420 012746 
005424 012746 
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.SfiTTL PRITSSR - PRINT TSSR CONTENTS 

♦ 

ROUTINE TO DISPLAY THE CONTENTS. AND BIT DEFINITIONS. OF 
THE TSSR REGISTER. THIS ROUTINE IS NORMALLY CALLED ONLY 
BY A MESSAGE PRINTING ROUTINE 

INPUTS: 

R1 CONTENTS OF TSSR 

SUBORDINATE ROUTINES: 

CHKA?IB CHECK FOR AMBIGUOUS CONTENTS 

PRITSSR: 



SEO 40 



006105 
000002 



000006 
016700 



006325 
000001 



000004 

001476 

002576 
003400 



58: 



108: 



000054 177777 



002576 
006276 



118: 

138: 
158: 



^ * ft JAP ^ 

SAVREG 


R1.R4 


.-SAVE GENERAL REGISTERS 


NOV 


:SAVE THE TSSR CONTENTS 


PRINTB 


fTSSRF0R.R4 


.•PRINT THE CONTENTS OF TSSR 


MOV 


R4.-(SP) 


MOV 


fTSSRFOR.-(SP> 




MOV 


#2.-(SP) 




NOV 


SP.RO 




TRAP 


C8PNTB 




ADD 


ff6.SP 




NOV 


R4.R0 


:GET TSSR BACK FOR CHKAMB 


JSR 


PC.CHKAHB 


.•ARE CONTENTS AMBIGUOUS ? 


BCS 


58 


.•BRANCH IF NOT 


rniN 1 A 


lAMBTSSR 


;SHOW CONTENTS ARE AMBIGUOUS 


NOV 


«AMBTSSR.-(SP) 


NOV 


fl.-(SP) 




NOV 


SP.RO 




TRAP 


C8PNTX 




ADD 


f4.SP 




NOV 


R4.R3 


.•CONTENTS OF TSSR 


81 C 


fHIAD0R!FATERR!TERCLS.R3 :CLEAR ALL MULTIPLE 1 


BEO 


208 


:N0 BITS ARE SET 


NOV 


#THPBFR.R2 


.•TEMPORARY ASCII BUFFER 


NOV 


ffTSSRBIT.Rl 


; ASCI I EQUIVALENT OF BITS 


TST 


R3 


.•REMAINING BITS TO CONVERT 


BEO 


158 


.•BRANCH WHEN ALL ARE DONE 


CLC 




.'CLEAR CARRY FOR SHIFT 


ROL 


R3 


.•SHIFT NEXT BIT TO CARRY 


BCC 


138 


.•BRANCH IF BIT NOT SET 


NOV 


(RD.RO 


;P01NTER TO BIT DEFINITION 


NOVB 


(R0)«.(R2)^ 


.MOVE ASCIZ TO BUFFER 


BNE 


118 


;NOVE ALL BITS 


NOVB 


f..-1(R2) 


.INSERT A COMNA TO TERNINATE 


TST 


(RD* 


:POINT TO NEXT DESCRIPTION 


BR 


108 


.•GET THE REMAINING BITS 


CLRB 


-(R2) 


.•TERMINATE THE LINE 


PRINTX 


ITSSDEF.fTMPBFR 


.•PRINT THE BIT DEFINITIONS 


NOV 


«THPBFR.-(SP) 




NOV 


fTSSDEF.-(SP) 
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PRITSSR - PRINT TSSR CONTENTS 

00S4S0 012746 000002 NOV 

005434 010600 NOV 

005436 104415 TR#P 

005440 062706 000006 ADD 

163S 

1639 005444 010403 20t: NOV 

1640 005446 042703 177761 BIC 

1641 005452 016303 006366 NOV 

1642 005456 PRINTX 
005456 010346 NOV 
005460 012746 006166 NOV 
005464 012746 000002 NOV 
005470 010600 NOV 
005472 104415 TRAP 
005474 062706 000006 ADD 

1643 005500 010403 NOV 

1644 003502 042703 177717 BIC 

1645 005506 001421 BEO 

1646 005510 006203 ASR 

1647 005512 006203 ASR 

1648 005514 006203 ASR 

1649 005516 016303 006726 NOV 

1650 005522 PRINTX 
005522 010346 NOV 
005524 012746 006227 NOV 
005530 012746 000002 NOV 
005534 010600 NOV 
005536 104415 TRAP 
005540 062706 000006 ADD 

1651 005544 012737 000031 002170 NOV 

1652 005552 010403 25S: NOV 

1653 005554 042703 176377 BIC 

1654 005560 00U11 BEQ 

1655 005562 PRINTX 
005562 010346 NOV 
005564 012746 006125 NOV 
005570 012746 000002 NOV 
005574 010600 NOV 
005576 104415 TRAP 
005600 062706 000006 ADD 

1656 005604 022704 100210 30S: CHP 

1657 005610 001003 BNE 

1658 005612 012737 006014 002146 NOV 

1659 005620 005737 002146 31S: TST 

1660 005624 001003 BNE 

1661 005626 012737 005755 002146 NOV 

1662 00S6S4 013737 002146 005644 310$: NOV 

1663 005642 32S: PRINTB 
005642 012746 005755 NOV 
005646 012746 000001 NOV 
005652 010600 NOV 
005654 104414 TRAP 
005656 062706 000004 ADD 

1664 005662 012737 005755 002146 NOV 

1665 005670 000207 RTS 

1666 005672 045 116 04S EPRT2: .ASCIZ 

1667 005755 045 116 045 EPRT1; .ASCIZ 



C 4 

13:32 PAGE 25-1 



SEQ 41 



#2.-<SP) 
SP.RO 
CtPNTX 
ff.SP 

R4.R3 

f*CTERCLS.R3 

TCOCOD(R3).R3 

ffTC0ASC,R3 

R3,-(SP) 

«TCOASC,-(SP) 

«2.-(SP) 

SP.RO 

CtPNTX 

«6,SP 

R4,R3 

ff*CFATERR,R3 

2SS 

R3 

R3 

R3 

TSFC0D(R3).R3 

fTFCASC,R3 

R3.-(SP) 

«TFCASC.-(SP) 

#2.-(SP) 

SP.RO 

CSPNTX 

f6.SP 

ff25.,FATFL6 
R4.R3 

f*CHIADDR.R3 
308 

ffT£XASC,R3 

R3.-(SP) 

«TEXASC,-(SP) 

f2.-(SP) 

SP.RO 

CSPNTX 

f6.SP 

f100210.R4 

31$ 

ffEPRT3.EPRTSU 

EPRTSW 

310$ 

fEPBTI.EPRTSU 

EPRTStt.321^2 

fEPRTI 

f£PRT1,-(SP) 

fl.-(SP) 

SP.RO 

CSPNTB 

ff4.SP 

fEPRTI, EPRTSU 
PC 

*XNIA tttttCHECK H7454. 



;6ET THE TSSR CONTENTS 
.'CLEAR ALL BUT TERMINATION 
;6ET THE TERMINATION CODE MEANING 
.•PRINT THE TERMINATION CODE 



:TS3R CONTENTS AGAIN 
.•CLEAR ALL BUT FATAL 
;DON*T PRINT IF ZERO 



TERMINATION 



:ALINE TERMINATION CODE FOR INDEX 
:GET THE FATAL TERMINATION CODE 
; PRINT THE FATAL TERMINATION CODE 



.-DROP THIS UNIT AFTER ERROR 

;GET TSSR CONTENTS 

.•CLEAR ALL BUT EXTENDED ADDRESS 

;OON'T PRINT IF ZERO 

.•PRINT THE EXTENDED ADDRESS BITS 



*IM»A Rgp^tf il74U»t>ttiS' 



.•CHECK FOR MEDIA ERROR 

;BR. IF PROBABLY NOT TAPE ERHOR 

;'1>R0BABLV NEDIA RELETED ERROR - BAD TAPE' 

.CHECK FOR THE SUITCH ENPTV 

.•BR. IF SWITCH IS NOT ENPTY 

;SET SUITCH TO DEFAULT 

:PUT REAL SUITCHABLE NESSAGE IN PLACE 

: PRINT THE ERROR NESSAGE 



:RESET TO NORNAL ERROR POINTER 
.•RETURN TO CALLER 
CABLES AND TRANSPORT«***«SS' 
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V*J 


116 




Crfl i3i 


AC* 19 
•M>»lC 
















OAS 


116 


wt? 


1 99lir Un • 




lO' 1 wo 1 cj 


OAS 


116 








1^7? (WtlMi 


OAS 


116 


04$ 


TfOACr • 
1 kUMau • 




1671 006??7 


04 <( 


116 


04$ 


1 r VMaW • 




167& 0M?76 


O&S 


116 


04$ 


1 «3wcr • 






OAS 


116 


04$ 


n^0i Sail* 




1676 

1 Of w 










• CVC" 


1677 006366 


006406 


006431 


0064$7 


TfOFOn* 

1 VUUwV • 


UORD 
• wUnW 


IW VwO"tVw 


116 


1S7 


169 

IOC 


1 


ASF I 7 


1679 


194 


14$ 


169 
>oc 


9t' 
c*« 


ASf 17 


1680 00MS7 


1?4 


141 


160 

1 OV 




ASr 17 


1681 006S01 


106 

1 vo 


16S 


1$6 
■ ^o 


4ft- 


AStI7 




1?? 


14$ 


141 


$ft* 


ASCI 7 


16i3 006601 


122 


14S 


143 


6ft* 


ASCI 7 


16M 0066S? 


1?$ 


1S6 


169 

IOC 


7ft* 


A$tI7 


16SS 006676 


106 


141 


164 

lO^ 




ASF 17 


1686 










.EVEN 


1687 












1688 006726 


006736 


006772 


007003 


TSFCOD: 


.yORD 


1689 006736 


111 


156 


164 


U: 


.ASCIZ 


1690 006772 


122 


145 


163 


2S: 


.ASCIZ 


1691 00^003 


102 


165 


163 


3S: 


.ASCIZ 


1692 007047 


122 


145 


163 


4S: 


.ASCIZ 


1693 










.EVEN 



0 4 
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SEQ 42 



*SNU ••••tPOSSlBLE MEDIA RELATED ERROR - BAD TAPE SS' 

.ASCIZ 'MSA TSSR « 106* 

.5SC1Z *XNXA Exttndtd Addrtss Bits » S06' 

.ASLiZ *SNXA Ttrafnatlon Class Codt * XT' 

.ASCIZ *XNXA Fatal Ttrafratlon Class Codt « XT' 

.ASCIZ 'XNXA TSSR Bits Stt: XT' 

.ASCIZ *XNSA TSSR Conttnts Art AMbiguous' 

1S,2$,3S,4$.5S«6$,7$.8$ 
'Noraal Ttralnatlon* 
'Ttralnation Condition* 
*Tapt Status Altrt* 
'Function Rtjtct* 

'Rtcovtrablt Error - Tapt Position Ont Record Down* 
'Rtcovtrablt Error - Tapt Was Not Novtd' 
'Unrtcovtrablt Error* 
*Fatal Controlltr Error* 



1S«2S.3S.4$ 

*lnttrnal Diagnostic Fallurt* 
'Rtstrvtd' 

'Bus Inttrfact or Sanity Chtck Error* 
'Rtstrvtd* 



E « 
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169S 
1698 
1699 
1700 
1701 
1703 
1704 
1705 
1707 

1710 007060 

1711 007060 

1712 007064 

1713 007066 
17U 007072 

1715 007074 

1716 007076 

1717 007100 

1718 007102 

1719 007104 

1720 007106 
007106 
007110 
007112 
007116 
007122 
007124 
007126 

1721 007132 

1722 007134 

1723 007136 

1724 007140 

1725 007144 

1726 007146 

1727 007150 

1728 007152 
007152 
007154 
007156 
007162 
007166 
007170 
007172 

1729 007176 

1730 007200 

1731 007202 

1732 007204 
007204 
007210 
007214 
007216 
007220 

1733 007224 

1735 007226 

1736 007264 
1738 007321 
1739 



010005 
005737 
001001 
005003 
010301 
010400 
006100 
006101 

010446 
010146 
012746 
012746 
010600 
104414 
062706 
010300 
001404 
010401 
004737 
010004 
005001 
012402 

010246 
010146 
012746 
012746 
010600 
104414 
062706 
005201 
020105 
002762 

012746 
012746 
010600 
104414 
062706 
000207 
045 
045 
045 



003102 



007264 
000003 



000010 



020252 



007226 
000003 



000010 



007321 
000001 



000004 

116 
116 
116 



.S8TTL PRIPKT - PRINT THE ADDRESS/CONTENTS OF CONNAND PACKET 
.-THIS ROUTINE PRINTS THE ADDRESS AND CONTENTS OF A CONNAND PACKET. 
:THIS ROUTINE IS NORHALLV ONLY CALLED FROM A PRINT ROUTINE. 



; INPUT! 



PRIPKT: 



108: 



15$: 



20S: 
251: 



045 PKTFRN: 
045 PKTADD: 
045 PKTNEU: 



RO 
R3 
R4 

NOTE: 

• 

'SAVREG 
NOV 
TST 
BNE 
CLR 
NOV 
MOV 
ROL 
ROL 

PRINTS 
NOV 

nov 

NOV 

NOV 

NOV 

TRAP 

ADD 

NOV 

BEQ 

NOV 

JSR 

NOV 

CLR 

NOV 

PRINTB 

NOV 

NOV 

NOV 

NOV 

NOV 

TRAP 

ADD 

INC 

CNP 

BLT 

PRINTB 

NOV 

NOV 

NOV 

TRAP 

ADD 

RTS 

.ASCII 

.ASCIZ 

.ASCI2 

.EVEN 



NUNBER OF WORDS IN PACKET 

HIGH ORDER CONNAND PACKET ADDRESS 

ADDRESS Of CONNAND PACKET 

R3 IS IGNORED IF THE KTENABLE FLAG IS CLEAR. 



R0.R5 
KTENABLE 
10S 
R3 

R3,R1 
R4.R0 
RO 
R1 

fPKTADD.R1,R4 

R4.-(SP) 

R1.-<SP) 

f PKTADD. -(SP) 

f3.-(SP) 

SP.RO 

CSPNTB 

flO.SP 

R3.R0 

20$ 

R4.R1 

PC.SETNAP 

R0,R4 

R1 

(R4}>.R2 

fPKTFRN,R1.R2 

R2,-(SP) 

R1,-(SP> 

fPKTFRM.-(SP) 

f3.-(SP) 

SP.RO 

CSPNTB 

flO.SP 

R1 

R1.R5 
25S 

fPKTNEU 
fPKTNEU,-(SP> 
fl.-(SP) 
SP.RO 
CSPNTB 
f4.SP 
PC 



:SAVE THE REGISTERS 
.-SAVE NO. OF WORDS IN PACKET 
.'ABOVE 28K UNDER TEST? 
*BR IF YES 

iSET HIGH ORDER ADDRESS TO 0 
:COPY HIGH ORDER ADDRESS 
:GET LOWER ADDRESS 
.•SHIFT BIT 15 INTO C BIT 
.-AND INTO HIGH ORDER. 
:PRINT PACKET ADDRESS 



GET HIGH ORDER ADDRESS 

BR IF NOT ABOVE 28K. 

GET LOW ORDER ADDRESS 

SETUP PAR6 NAPPING FOR 18 BIT ADDRESS 

GET RETURNED PAR6 ADDRESS BIAS 

SAVE WORD NUNBER 

GET PACKET CONTENTS 

PRINT THE DATA 



:NEXT WORD NUNBER 
;DONE ALL PACKET WORDS? 
:LOOP TILL ALL DONE 
;JUST A COUPLE NEH LINES 



: RE TURN 



'XNSA Packtt Word fXDIU - 106* 
'INU Packet Addrtss = SOI 105* 
*XNXNSA ' 



F 4 



CZTUXAO TU80 FRONT £ND PRT B HACRO N1200 
PRIBXOR - PRINT EXPO, RECV AND XOR BYTE 

1742 
17A3 

17A5 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
1757 
1758 
1759 

1760 007332 

1761 007332 

1762 007336 

1763 007340 

1764 007350 

1765 007354 

1766 007356 

1767 007360 

1768 007362 
007362 
007364 
007366 
007370 
007374 
007400 
007402 
007404 

1769 007410 

1770 007412 
1771 

1772 007414 
1773 
1774 
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.SBTTL PRIBXOR - PRINT EXPO. RECV ANO XOR BYTE 



PRINT EXPECTED OATa, RECEIVEO DATA. ANO XOR OF THE OATA BYTE 
THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 



SEQ 44 



INPUTS: 



R1 RECEIVED DATA 
R2 EXPECTED DATA 



OUTPUT: 



RO 



PRIBXOR: 



010203 

012700 177400 
040001 
040002 
040003 

010346 
010146 
010246 

012746 007414 
012746 000004 
010600 
104414 

062706 000012 

010300 

000207 



SAVREG 

MOV 

XOR 

NOV 

BIC 

BIC 

BIC 

PRINTB 

NOV 

NOV 

NOV 

NOV 

NOV 

NOV 

TRAP 

ADO 

NOV 

RTS 



045 



116 



045 X0R8F0R: 



XOR OF EXPECTED/RECEIVED DATA 



R2.R3 
R1,R3 

f*C<377>.R0 
R0.R1 
R0.R2 
R0.R3 

fX0RBF0R.R2.R1 

R3.-(SP) 

R1.-CSP) 

R2,-(SP) 

fXORBFOR,-(SP) 

f4,-(SP) 

SP.RO 

CtPNTB 

f12,SP 

R3.R0 

PC 



;SAVE THE REGISTERS 
.EXPECTED DATA 
:FORN THE EXCLUSIVE OR 
.BYTE NASK 
;SAVE LOW BYTE RECV 
:SAVE LOU BYTE EXPO 
;SAVE LOU BYTE XOR 
.R3 :PRINT THE NESSAGE 



:R0 HAS XOR ON RETURN 
.•RETURN TO CALLER 



.EVEN 



.ASCIZ *XNXA EXPO: X03XA RECV: X03U XOR: X03* 



G 4 



CZTUXAO TUGO FRONT END PRT B 
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1776 

1777 

1778 

1779 

1780 

1781 

1782 

1785 

1784 

1785 

1786 

1787 

178S 

1789 

1790 

1791 

1792 

1793 

1794 007462 

1795 007462 

1796 007466 

1797 007470 

1798 007500 
007500 
007502 
007504 
007506 
007512 
007516 
007520 
007522 

1799 007526 

1800 007530 
1801 

1802 007532 
1803 



RACPO HI 200 29-nAR-83 1 3:32 PACE 28 
XOft 



SEQ 4S 



.SBTTL PRIXOR - PRINT EXPD, RECV AND XOR 



PRINT EXPECTED DATA. RECEIVED DATA. AND XOR OF THE TWO 
THIS ROUTINE IS NORNALLV CALLED ONLY FOR PRINT ROUTINES. 



INPUTS: 



R1 
R2 



OUTPUT: 



010203 



010346 
010146 
010246 

012746 007532 
012746 000004 
010600 
104414 

062706 000012 

010300 

000207 



045 



116 



045 



RO 



PRIXOR: : 

SAVREG 

NOV 

XOR 

PRINTS 

NOV 

NOV 

NOV 

NOV 

NOV 

NOV 

TRAP 

ADD 

NOV 

RTS 

XORFOR: .ASCIZ 
.EVEN 



RECEIVED DATA 
EXPECTED DATA 



XOR or EXPECTED/RECEIVED DATA 



;SAVE THE REGISTERS 
R2.R3 .EXPECTED DATA 

R1.R3 ;F0RN THE EXCLUSIVE OR 

fXORFOR.R2.R1.R3 .-PRINT THE NESSA6E 
R3.-(SP) 
RI.-(SP) 
R2.-(SP) 
fXORFOR.-(SP) 
#4.-(SP) 
SP.RO 
CSPNTB 
#12.SP 

R3.R0 ;R0 HAS XOR ON RETURN 

PC .-RETURN TO CALLER 

*XNXA EXPD: S06XA RECV: S06XA XOR: S06* 



H 4 
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SEQ 46 



1805 

1806 

1807 

1808 

1809 

1810 

1811 

1812 

1813 

1814 

1815 

1816 

1817 

1818 

1819 

1820 

1821 

1822 

1823 

1824 

1825 

1826 

1827 

1828 

1829 

1830 

1831 

1832 

1833 

1834 

1835 

1836 

1837 

1838 

1839 



.SBTTL PRIEOU - PRINT BIT NUNBERS AS ASCII EQUIVALENT 



.•ROUTINE TO CONVERT BIT VALUES TO ASCII AND PRINT THE STRING 
;THIS ROUTINE IS NORNALLT CALLED FRON A PRINT ROUTINE 



; INPUTS: 



RO OCTAL VALUE TO CONVERT 

R1 TABLE OF POINTERS TO ASCII EQUIVALENT 



007600 
007600 
007604 



PRIEQU: 



000207 



SAVREG 
RTS PC 



;SAVE THE REGISTERS 
.-RETURN TO CALLER 



1840 
1841 
1842 
1843 
1844 
1845 
1846 
1847 
1848 
1849 
1850 
1851 
1852 
1853 
1854 
1855 



007606 
007606 
007612 
007612 
007614 
007620 
007624 
007626 
007630 
007634 

007636 



.SBTTL PRIRAN - PRINT RAN ADDRESS 



PRINT CONTROLLER RAN ADDRESS. 

THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 



INPUTS: 



R4 



RIRAN: 



010446 

012746 007636 
012746 000002 
010600 
1044U 

062706 000006 
000207 

045 116 



045 



SAVREG 
PRINTB 

mv 

NOV 

mv 

NOV 
TRAP 
ADD 
RTS 

RANFOR: .ASCII 
.EVEN 



RAN ADDRESS 



fRANF0R.R4 

R4,-(SP) 

fRANFOR.-(SP> 

f2.-(SP) 

SP.RO 

CtPNTB 

f6.SP 

PC 



;SAVE R1-R5 UNTIL NEXT RETURN 
.'PRINT RAH ADDRESS IN ERROR 



: RE TURN 



*mA CONTROLLER RAN ADDRESS = X06* 



.S8TTL PRIAOO - PRINT NENORY ERROR ADDRESS 



PRINT MNORY ADDRESS 

THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 



IMPLICIT INPUTS 



ERRHI - HIGH ORDER ADDRESS 
tRRLO - LOW ORDER ADDRESS 



CZTUXAO TU80 FRONT END PRT B fUCRO H1200 
PRIAOD - PRINT NCNCMV ERROR ADDRESS 



I « 
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SEQ «7 



1856 
1857 

1858 007700 
1659 007700 

1860 007704 

1861 007710 

1862 0077U 

1863 007716 
18M 007720 

1865 007722 
007722 
007724 
007726 
007732 
007736 
007740 
007742 

1866 007746 
1867 

1868 007750 

1869 

1870 

1871 

1872 

1873 

1874 

1875 

1876 

1877 010014 

1878 010014 

1879 010020 

1880 010024 

1881 010030 

1882 010032 

1883 010034 

1884 010036 
010036 
010040 
010042 
010046 
010052 
010054 
010056 

tSb, 010062 
1886 010064 
1887 



045 



013700 
013701 
010102 
006101 
006100 

010246 
010046 
012746 
012746 
010600 
104414 
062706 
000207 
04S 



PRIADD: 



013700 


002202 


SAVREG 




;SAVE R1-RS UNTIL NEXT RETURN 


NOV 


ERRHi.RO 


;6ET HI6N ADDRESSS 


013701 


002204 


NOV 


ERRL0.R1 


;GET LOU ADDRESS 


010102 




NOV 


R1.R2 


;COPV LOW ADDRESS 


006101 




ROL 


R1 


iSHIFT BIT 15 TO C BIT 


006100 




ROL 


RO 


; SHIFT INTO HIGH ORDER 






PRINTS 


fPRIA0.R0»R2 


SPRINT NENORY ADDRESS IN ERROR 


010246 




NOV 


R2.-(SP> 




010046 




NOV 


RO.-(SP) 




012746 


007750 


NOV 


«PRIAO,-(SP) 




012746 


000003 


NOV 


#3.-(SP) 




010600 




NOV 


SP.RO 




104414 




TRAP 


CIPNTB 




062706 


000010 


ADD 


flO.SP 




000207 




RTS 


PC 


; RE TURN 



116 



045 PRIAO: 



.ASCIZ 
.EVEN 



*SNU NENORY ERROR ADDRESS - S0U05' 



PRINT NENORY ADDRESS 

THIS ROUTINE IS NORNALLY CALLED ONLY FROM PRINT ROUTINES. 
INPLICIT INPUTS 



ERRHI - HIGH ORDER ADDRESS 
ERRLO - LOW ORDER ADDRESS 



PRITADD: 



002202 
002204 



010064 
000003 



000010 
116 



045 PRITO: 



SAVREG 




:SAVE R1-R5 UNTIL NEXT RETURN 


NOV 


ERRHI. RO 


;6ET HIGH ADDRESSS 


NOV 


ERRLO.RI 


;GET LOW ADDRESS 


NOV 


R1.R2 


.•COPY LOW ADDRESS 


ROL 


R1 


;SHIFT BIT 15 TO C BIT 


ROL 


RO 


; SHIFT INTO HIGH ORDER 


PRINTB 


fPRITC.R0,R2 


;PRINT NENORY ADDRESS IN ERROR 


NOV 


R2.-(SP) 




NOV 


RO.-(SP) 




NOV 


iPRlTO,-(SP) 




NOV 


i3.-($P) 




NOV 


SP.RO 




TRAP 


CtPNTB 




ADD 


flO.SP 




RTS 


PC 


: RE TURN 


.ASCI2 


*XNU NENORY 


TEST ADDRESS - S01X05* 


.EVEN 







J 4 
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SEO 46 



1M9 
1890 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 
1906 
1907 

1908 010126 

1909 010126 

1910 010132 

1911 010140 

1912 010146 

1913 010150 

1914 010152 

1915 010156 

1916 010160 

1917 010164 

1918 010170 

1919 010176 

1920 010202 

1921 010206 

1922 010212 

1923 010214 
010214 
010220 
010222 
010226 
010250 
010234 
010236 
010242 

1924 010244 

1925 010250 

1926 010252 

1927 010254 

1928 010260 

1929 010264 

1930 010266 

1931 010270 

1932 010272 

1933 010274 

1934 010276 

1935 010300 

1936 010300 

1937 010302 



012737 
012737 
005703 
100403 
010337 
000407 
042703 
010337 
052737 
012704 
010465 
004737 
103420 

012727 
000000 
013727 
000000 
f'j5367 
001375 
005367 
001367 
005337 
001356 
000411 
016501 
012702 
020201 
001401 
000402 
U00261 
000401 
000241 

010400 
000207 



.SBTTL SPACE - SPACE RECORDS (FORWARD AND REVERSE) COWIAND 

ROUTINE TO ISSUE A SPACE RECORDS 
COWUND (FORWARD OR REVERSE) 
INPUT : 

' R3 NUHBER OF RECORDS TO BE SPACED OVER 

BIT15 CONTROLS DIRECTION 

Bins « 0 IS FORWARD 

BIT15 * 1 IS REVERSE 
RS FIRST DEVICE UNIBUS ADDRESS 
REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY 

OUTPUT: 

CARRY SET - SPACE RECORDS COMMAND OK 
CLR - SPACE RECORDS FAILED 

RO THE CONTENTS OF R4 IS MOVED TO RO 

IMPLICIT OUTPUT: 

TAPE HAS BEEN MOVED ^ 
SIDE EFFECTS: 



SPACE: 



000764 010320 
140010 010310 



010312 

100000 
010312 

000400 010310 
010310 
177776 
017104 



000250 
002116 
177772 
177756 
010320 



000000 
000200 



5$: 



10$: 
1SS: 



SAVREG 

MOV 

MOV 

TST 

BMI 

MOV 

BR 

BIC 

MOV 

BIS 

MOV 

MOV 

JSR 

BCS 

DELAY 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

DEC 



20S: 
251: 

40$: 

60$: 
70$: 



BR 

MOV 

MOV 

CMP 

BEQ 

BR 

SEC 

BR 

CLC 

MOV 
RTS 



f500..SDELAV 

#140010.80$ 

R3 

5$ 

R3.90$ 
10$ 

fBIT15,R3 
R3.90$ 
fBIT8.80$ 
f80$.R4 

R4.TSDB(R5) 

PCWAITF 

20$ 

250 

#250. (PC)* 
0 

L$DLY.(PC)* 
0 

-6(PC) 
.-4 

-22 (PC) 

.-20 

SDELAY 

15$ 

60$ 

TSSR(R5).R1 

#SSR.R2 

R2.R1 

40$ 

60$ 

70$ 



R4.R0 

PC 



;SAVE THE GENERAL REGISTERS 
;SET UP DELAY 

;SET UP COMMAND. SPACE FORWARD 

;CHECK FOR DIRECTION 

;BR. IF REVERSE INDICATED 

;LOAD UP NUMBER OF RECORDS TO SPACE 

;G0 DO COMMAND 

;CLEAR DIRECTION BIT 

;LOAD UP NUMBER OF RECORDS TO SPACE 

;SET REVERSE BIT IN COMMAND PACKET 

:SET UP R4 WITH PACKET ADDRESS 

;SEND OUT COMMAND 

;WAIT FOR SSR 

;BR. IF SSR IS SET AND OK 

;DELAV ABOUT .25 SECONDS 



;BUHP DELAY COUNTER DOWN 

;BR. IF MORE DELAY 

;BR IF TROUBLE CARRY » CLEAR 

:READ TSSR 

.-SET UP EXPECTED 

:ARE THEY OK 

:BR. IF EQUAL « OK 

; TROUBLE EXIT 

;SET CARRY NO TROUBLE 

:EXIT 

: TARRY CLEAR s ERROR 
;PASS PACKET ADDRESS 

jj^sm 



CZTUXAO TU80 FRONT END PRT B HACftO MIZOO 29-MAft-83 13:32 
SPACE - SPACE RECORDS (FORWARD AND REVERSE) COMAND 
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1938 
1939 

mo 

mZ 010304 

1944 

194S 

1946 010310 
1947 

1948 010312 

1949 010314 

1950 010316 

1951 010320 
1952 



000000 

000000 
000000 
000000 
000000 



; PACKET FOR SPACE COfWAND 

.BLKB 1V<.-TUV2A87> 

icOIWAND yORD 
60S: .WORD 

; NUMBER OF RECORDS TO BE SPACED OVER WORD 
90S: .WORD 

.WORD 

.WORD 

SDELAY: .WORD 0 ;nELAY COUNTER 

.EVEN 



L 4 



CZIUXAO TU80 FRONT END PRT B fUCRO 111200 
yRTCHR - yRITE CHARACTERISTICS COfWAND 



1954 

1955 

1956 

1957 

195S 

1959 

1960 

1961 

1962 

1963 

1964 

1965 

1966 

1967 

1968 

1969 

1970 

1971 

1972 

1973 

1974 

1975 

1976 

1977 

1978 

5979 

1980 

1981 

1982 

1983 

1984 

1985 010322 

1986 010322 

1987 010326 

1988 010332 

1989 010336 

1990 010342 

1991 010344 

1992 010346 

1993 010352 

1994 010356 

1995 010362 

1996 010364 

1997 010370 

1998 010372 

1999 010374 

2000 010376 

2001 010402 

2002 010404 

2003 010410 

2004 010412 

2005 010414 

2006 0104i6 

2007 010422 
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.SBTTL WRTCNR - WRITE CHARACTERISTICS COHHAND 



SEQ 50 



2008 
2009 



005037 
010465 
004737 
103401 
000423 
016501 
012702 
032701 
001402 
052702 
020201 
001401 
000407 
062704 
011403 
010337 
000261 
G00401 
000241 
016500 
000207 



002174 
177776 
017220 



000000 
000200 
000100 

000100 



000010 
002716 

000000 



ROUTINE TO ISSUE A WRITE CHARACTERISTICS 
COHNANO SO THAT OTHER COWIANOS WILL BE ACCEPTED 



INPUT: 



R4 ADDRESS OF PACKET FROM TEST 
R5 FIRST DEVICE UNIBUS ADDRESS 
REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY 



OUTPUT: 



RO TSSR CONTENTS 

CARRY SET - WRITE CHARACTERISTICS COMMAND OK 
CLR - WRITE CHARACTERISTICS FAILED 



IMPLICIT OUTPUT: 



MESSAGE BUFFER AND OTHER BUFFERS ALL SET UP 
SOFTWARE SWITCHES SET AS FOLLOWS: 

BENBSW s BUFFER ENABLE SWITCH ON OR OFF 



SIDE EFFECTS: 



WRTCHR: 



10S: 



208: 



25S: 



408: 



60S: 
70S: 



SAVREG 




:SAVE THE GENERAL REGISTERS 


CLR 


BENBSW 


.'CLEAR BUFFER ENABLE SWITCH 


NOV 


R4,TSDB((^S) 


:SEND OUT COMMAND 


JSR 


PC.CHKTSSR 


;WAIT FOR SSR 


BCS 


20S 


:BR. IF SSR IS SET AND OK 
;BR IF TROUBLE CARRY s CLEAR 
;READ TSSR 


BR 


60S 


MOV 


TSSR(R5),R1 


MOV 


#SSR.R2 


;SET UP EXPECTED 


BIT 


#0FL.R1 


:WAS OFF LINE SET IN TSSR 


BEQ 


25S 


:BR. IF NO OFL SET 


BIS 


#0FL.R2 
R2,R1 


;MAKE THEM LOOK ALIKE 


CMP 


;ARE THEY OK 


BEQ 
BR 


40S 


:BR. IF EQUAL « OK 


60S 


; TROUBLE EXIT 


ADD 


f8..R4 


: POINT TO WRT CHARA DATA PACKET 


MOV 


(R4)«R3 


:GET ADDRESS OF MESSAGE BUFFER 


MOV 


R3,NESBFA 


.•STORE FOR PRINT ROUTINES 


SEC 
BR 


.-SET CARRY NO TROUBLE 


70S 


:EXIT 


CLC 




: CARRY CLEAR s ERROR 


MOV 


TSSR(R5).R0 


; RETURN TSSR CONTENTS 


RTS 


PC 


.•RETURN 



CZTUXAO TUBO FRONT END CRT B HACRO 111200 
REUINO • POSITION TAPE (REMIND) COMMND 



2011 

2012 

2013 

2014 

2015 

2016 

2017 

2018 

2019 

2020 

2021 

2022 

2023 

2024 

2025 

2026 

2027 

2026 

2029 

2030 

2031 

2032 

2033 

2034 

2035 

2036 

2037 

2038 

2039 010424 

2040 010424 

2041 010430 

2042 010434 

2043 010440 

2044 010444 

2045 010450 

2046 010452 
010452 
010456 
010460 
010464 
010466 
010472 
010474 
010500 

2047 010502 

2048 010504 

2049 010506 

2050 010510 

2051 010512 
2053 010514 

2055 010520 

2056 010520 

2057 010522 
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.S8TTL REUIND - POSITION TAPE (REUIND) CONNAND 



SEQ 51 



THIS ROUTINE WILL NtWINO TNE SELECTED TAPE. 

CAUTION: THE ROUTINE DOES NOT WAIT FOR BOT 

TO ARRIVE. ALSO THE CALLER MUST CHECK FOR 
SSR TO SET IN THE TSSR 



CALLING SEQUENCE: 

DO A SOFT INIT 

DO A WRITE CHARACTERISTICS 



JSR 



INPUT: 



R5 



OUTPUT 



RO 



PC, REUIND 



FIRST DEVICE UNIBUS ADDRESS 



THE CONTENTS OF R4 IS PASSED TO RO 



REUIND:: 



012704 
010465 
012703 
004737 
103417 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005303 
001357 
000241 
010400 
000207 



102010 
000000 



010520 
177776 
000550 
017104 



000372 
002116 
177772 
177756 



10$: 



20$: 



RUPACK: 



SAVREG 

NOV 

NOV 

NOV 

JSR 

BCS 

DELAY 

NOV 

.WORD 

NOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

DEC 

BNE 

CLC 

NOV 

RTS 

.BLKB 

.WORD 
.WORD 



«RUPACK,R4 

R4.TSDB(RS) 

1360., R3 

PC.WAITF 

20$ 

250. 

1250.. (PC)* 
0 

L$DLY,(PC)* 
0 

-6(PC) 
.-4 

-22 (PC) 
.-20 
R3 
10$ 

R4,R0 
PC 

10-<.-TUV2A87> 

102010 

0 



;SAVE R1-RS UNTIL NEXT RETURN 

;6ET PACKET ADDRESS 

;SEND PACKET ADDRESS TO EXECUTE 

.•ENOUGH TINE FOR 2400' REEL TO REWIND 

:UAIT FOR SSR TO Sn 

; LEAVE WHEN SSR IS SET 

:WAIT FOR .25 SECONDS 



;BUNP COUNTER DOWN 
;KEEP GOING 

; CLEAR CARRY TO SET ERROR 
;PASS THE PACKET ADDRESS 
: RETURN 



;POSTION CONNAND (REWIND) 
;NOT USED 



N 4 



CZTUXAO TU60 FRONT END PRT B HACRO HI 200 
CKRAM • COMPARE RAH TO I/O PACKET 



2059 

2060 

2061 

2062 

2063 

2064 

206S 

2066 

2067 

2068 

2069 

2070 

2071 

2072 

2073 

2074 

2075 

2076 

2077 

2078 

2079 

2080 

2081 

2082 

2083 

2084 

2085 

2086 

2087 010524 

2088 010524 

2089 010530 

2090 010534 

2091 010540 

2092 010542 

2093 010546 

2094 010552 

2095 010556 

2096 010562 

2097 010566 

2098 010570 

2099 010572 

2100 010574 

2101 010576 

2102 010602 

2103 010604 

2104 010606 

2105 010610 

2106 010612 

2107 010614 

2108 010616 

2109 010624 
2110 
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.SBTTL CKRAN - COr*>ARE RAH TO I/O PACKET 



SEQ 52 



ROUTINE TO READ THt FIRST 8 BYTES FROM RAM 
MEMORY AND COMPARE THIS DATA TO A COMMAND PACKET. 



UjPUT: 



R4 
RS 



ADDRESS OF THE COMMAND PACKET 
FIRST DEVICE UNIBUS ADDRESS 



OUTPUT : 



CARRY 



SET - RAH MATCHES PACKET 

CLR - RAH DOES NOT HATCH PACKET 



IMPLICIT OUTPUT: 



THE TABLE RAMDATA IS FILLED WITH THE 
DATA HELD IN RAM. 

RANSI2 IS SET TO 8. FOR PRAMPKT ROUTINE 



SIDE EFFECTS: 



012701 


002206 




SAVRE6 




•SAVE THE GENERAL REGISTERS 




nov 


ffRAHDATA.RI 


ADDRESS TO SAVE THE RAM DATA 


012702 


000020 




HOV 


fRHPKTBE6«R2 


•BYTE ADDRESS OF FIRST RAH DATA 


005003 






CLR 


R3 


; CLEAR THE ERROR FLAG 


004737 


017220 




JSR 


PC.CHKTSSR 


;UAIT FOR SSR 


004737 


017220 


10$: 


m 


PC.CHKTSSR 


;UA1T FOR SSR TO SET 


110265 


177777 




novB 


R2.TSDBH(R5) 


i SELECT NEXT RAH ADDRESS 


004737 


017220 




JSR 


PC.CHKTSSR 


;UAIT FOR SSR TO SET 


116511 


177776 




HOVB 


TSBAL(R5).(R1> , 


;READ THE RAH DATA 


122124 






CHPB 


(R1>*.(R4)« 


; COMPARE TO EXPECTED 


001401 






BEO 


20$ 


iBRANCH IF OK 


005203 






INC 


R3 


;SET ERROR FLAG 


005202 




20t: 


INC 


R2 


;ADDRESS OF NEXT RAN LOCATION 


020227 


000027 




CMP 


R2.fRHPKTEND 

loi 


iREACHED END YET ? 


003761 






BLE 


IBRANCH TILL ALL READ 


005703 






TST 


R3 


;UAS AN ERROR FOUND ? 


001402 






BEO 


30$ 


'BRANCH IF NOT 


000241 






CLC 




•CLEAR CARRY TO SHOW ERROR 


000401 






SR 


50$ 


•AND EXIT 


000261 




30$: 


SEC 




;SHOW GOOD COMPARE 


012737 


000010 002246 


50$: 


nov 


f8..RAHSlZ 


; SETUP RAMSIZ FOR PRANPKT ROUTINE 


000207 






RTS 


PC 


; RETURN 



B 5 



CZTUXAO TU80 FRONT EMO PRT B MACRO HI 200 
RAMER • READ AND DISPLAY SELECTED RAH 



2112 
2113 
21 U 
2115 
2116 
2117 
2118 
2119 
2120 
2121 
2122 
2123 
2124 
21 2S 
2126 
2127 
2128 
2129 
2130 
2131 

2132 010626 

2133 010626 

2134 010632 

2135 010636 

2136 010642 

2137 010646 

2138 010652 

2139 010656 

2140 010662 

2141 010666 

2142 010672 

2143 010676 

2144 010700 

2145 010704 

2146 010710 

2147 010712 

2148 010716 
010716 
010720 
010722 
010726 
010732 
010734 
010736 

2149 010742 

2150 010746 

2151 010752 

2152 0107S4 

2153 010756 

2154 010762 
010762 
010764 
010770 
010774 
010776 
011000 

2155 011004 
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.SBTTL RARER - READ AND DISPLAY SELECTED RAM 



SEO 53 



ROUTINE TO READ ^HE SELECTED RAM LOCATIONS 
INPUT: 

R5 FIRST DEVICE UNIBUS ADDRESS 

CONSOLE WILL ALSO BE PRINTED TO 

IMPLICIT OUTPUT: 

THE TABLE RAMDATA IS FILLED WITH THE 
DATA HELD IN RAM. 







;SIDE EFFECTS: 
• 








RAMER : 








SAVREC 




01 3705 


011012 


MOV 


RAMR5H,R5 


012701 


AAfl Ax 

002206 


MOV 


fRANDATA,R1 


013702 


011010 


MOV 


RAMHLD.R2 


A 4 WAV 

013703 


002246 


MOV 


RAMSIZ.R3 


004757 


A4 941A 

01 7220 


# AA 1 «k A 

lot: JSR 


PC.CHKTSSR 


110265 


177777 


MOVB 


R2.TSDBHIR5) 


004737 


A4 Vf^A 

01 7220 


JSR 


PC.CHKTSSR 


116521 


< 9 W9X 

177776 


MOVB 


TSBAL(R5).(R1)^ 


062702 


000001 


20S: ADD 


f1.R2 


A99V« V 

07731 3 




SOS 


ahV « AA 

R3J0$ 


01 3704 


002246 


MOV 


RAMSIZ»R4 


013702 


A« « A« A 

011010 


MOV 


RANHLD.R2 


060204 




ADD 


R2.R4 


162704 


A AAA A* 

000001 


SUB 


f1,R4 






rnJNIX 


mnKniQr ,nc 


010446 




MOV 


R4.-(SP) 


010246 




MOV 


R2.-<SP) 


012746 


011014 


MOV 


#RAMI0P,-(SP) 


012746 


000003 


MOV 


f3,-(SP) 


010600 




MOV 


SP.RO 


104415 




TRAP 


C$PNTX 


062706 


000010 


ADD 


flO.SP 


012701 


002206 


MOV 


fRANDATA.RI 


013703 


002246 


MOV 


RANSIZ.R3 


005004 




30$: CLR 


R4 


112104 




MOVB 


(R1)«.R4 


042704 


177400 


BIC 


f177400,R4 






PRINTX 


fRANPD,R4 


010446 




MOV 


R4,-(SP) 


012746 


011065 


MOV 


fRAHPD,-(SP) 


012746 


000002 


MJV 


f2,-($P> 


010600 




MOV 


SP.RO 


104415 




TRAP 


CSPNTX 


062706 


000006 


ADD 


f6,SP 


077316 




SOB 


R3.30$ 



SAVE THE GENERAL REGISTERS 

RESET R5 TO FIRST DEVICE REGISTER 

ADDRESS TO SAVE THE RAM DATA 

BYTE ADDRESS OF THE FIRST RAM DATA 

SET THE SIZE OF THE READ UP 

WAIT FOR iHE SSR TO SET 

SELECT NEXT RAM ADDRESS 

WAIT FOR SSR TO SET 

READ THE RAM DATA 

ADDRESS OF THE NEXT RAM LOCATION 

NUMBER OF LOCATIONS COUNTER 

GET THE RAM SIZE 

GET THE STARTING RAM ADDRESS 

CALCULATE THE END ADDRESS 

CORRECT VALUE OF PRINTOUT 

RAH ADDRESS s 10 - 17, ETC. 



ADDRESS OF WHERE RAH DATA IS 

THE SIZE OF THE RAH FIELD READ 

NO EXTRA DATA LEFT OVER 

PICK UP BYTE OF RAH DATA 

GET RID OF SIGN EXTEND 

•X)10 211 111 222 377 000 1 23 1 34 ETC." 



■LOOP UNTIL ALL PRINTED 



CZTUXAO TU80 FRONT END PRT B MACRO Ml 200 
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2156 011006 
2157 

2158 011010 

2159 011012 

2160 0110U 

2161 011065 
2162 

2163 



000207 

000000 
000000 
045 
045 



116 
101 



SOS: 

RAfWLD: 
RAm5H: 
045 RAHIOP: 
040 RAHPO: 



RTS 

.WORD 

.tfORD 

.ASCIZ 

.ASCIZ 

.EVEN 



PC 



: RE TURN 



0 .-RAH ADDR HOLDER IST ADDRESS 

0 .-HOLDS R5 FOR LATER 

'IHIA Rm Address (Octal; - S03IA - X03tN* 
'ZA X03ZA • 



D 5 

SEQ SS 

CZTUXAO TU80 F3KMT END PftT B MACRO N1200 29-AAR-83 13:32 PAGE 35 
CKRAHZ - COMPARE RAM TO I/O CHARACTERISTICS DATA 









.SBTTL 


CKRAM2 - COMPARE RAM TO I/O CHARACTERISTICS DATA 


c lOO 












C lOr 


















:R0UTINE TO READ ^HE FIRST 8 OR 


10 BYTES FROM RAH 


71 AO 






:HENORY AND COMPARE 7HIS DATA TO A CHARACTERISTICS DATA BLOCK. 


& 1 f w 












9171 






; INPUT: 






9179 












9171 






R4 


ADDRESS OF THE CHARACTERISTICS DATA 


9174 






R5 


FIRST DEVICE UNIBUS ADDRESS 


91 7% 












?17A 






loUTPUT: 






2177 

Civ* 












91 7S 






CARRY 


SET - RAN MATCHES PACKET 


2179 








CLR - RAN DOES NOT MATCH PACKET 


21 SO 












21 B1 






; IMPLICIT OUTPUT: 




21S2 

ft iwft 












2113 

ft iw^ 






THE TABLE RAMDATA IS fiLLED WITH THE 


21 84 

ft ■ 






DATA HELD IN RAN. 




2185 

ft 1 






RAMSIZ 


IS SET TO 8. OR 


10. FOR PRAHPKT ROUTINE 


2186 

ft * W 












2187 

ft W" 






SIDE EFFECTS: 






2188 

ft > VW 












2189 












2190 












2191 












2192 011100 




CKRAfl2:: 






2193 011100 

ft • y V w ■ ■ ■ w 






SAVRE6 




:SAVE THE GENERAL REGISTERS 


9194 011104 

ft ■ V ■ ■ ■ 


012701 

W ' ft * V f 


002206 


MOV 


fRAMDATA.RI 


.•ADDRESS TO SAVE THE RAM DATA 


219S 011^10 

ft>r^ Vli>IV 


012702 

V < ft ■ Wft 


000167 


MOV 


fRNCHBE6,R2 


:BYTE ADDRESS OF FIRST RAM DATA 


2196 011114 


003003 




CLR 


R3 


; CLEAR THE ERROR FLAG 


2197 011116 

ft I V ■ ■ 1 1 w 


004737 


017220 


JSR 


PC.CNKTSSR 


:UAIT FOR SSR 


2198 011122 

ft ■ r VP VI « < ft ft 


004737 


017220 10$: JSR 


PCCHKTSSR 


.-WAIT FOR SSR TO SET 


2199 011126 

ft f W w VVVw ft V 


110265 

1 * VftW^ 


177777 


MOVB 


R2,TS0BH(RS) 


; SELECT NEXT RAM ADDRESS 


9200 011132 

ftft W V 1 1 « «/ft 


004737 


017220 


JSR 


PC.CHKTSSR 


;WAIT FOR SSR TO SET 


9201 011136 
ccv 1 V < 1 i 


116511 


177776 


MOVB 


TSBAL(R5},(R1) 


.•READ THE RAM DATA 


2202 011142 

ftftVft VI t l^ft 


122124 

1 ftft 9 ft^ 




CMPB 


(R1)>.(R4)* 


.COMPARE TO EXPECTED 


2203 011144 


001401 

W I^V I 




BEO 


20$ 


.•BRANCH IF OK 


CCi^ V 1 1 > 


005203 




INC 


R3 


;SET ERROR FLAG 


290S 011150 


005202 

w^ft vft 


20$: INC 


R2 


.•ADDRESS OF NEXT RAN LOCATION 


U11 IS? 

CCvQ V V • i 


01 9737 

VIC J» 


000010 002246 


MOV 


#8. .RAMSIZ 


; ASSUME NORMAL NOT SET 


2207 011160 


020227 


000176 


CMP 


R2,fRMCHEND-2 


; REACHED END YET ? 


2208 011164 


0037S6 




BLE 


10$ 


: BRANCH TILL ALL READ 


2209 011166 


005703 


27$: TST 


R3 


:WAS AN ERROR FOUND "> 
:BRANCN IF NCT 


2210 011170 


001402 




BEO 


30$ 


2211 011172 


000241 




CLC 




; CLEAR CARRY TO SHOW i^(>f'OR 


2212 011174 


000401 




BR 


50$ 


•AM) EXIT 


2213 011176 


000261 


30$: SEC 




:SNOU GOOD COMPARF 


2214 011200 


000207 


50$: RTS 


PC 


; RETURN 



2215 



E S 
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SEQ 56 



2217 

2218 

2219 

2220 

2221 

2222 

2223 

2224 

2225 

2226 

2227 

2228 

2229 

2230 

2231 

2232 

2233 

2234 

2235 

2236 

2237 

2238 

2239 

2240 

2241 

^2^2 011202 

2243 011202 

2244 011206 

2245 011212 

2246 011216 

2247 011222 

2248 011224 

2249 011230 

2250 011232 

2251 011234 

2252 011236 

2253 011240 

2254 011244 

2255 011250 

2256 011252 

2257 011254 
2256 011256 

2259 011262 

2260 011266 

2261 011270 

2262 011276 

2263 011300 

2264 011304 

2265 011306 

2266 011310 

2267 011312 
2266 011314 

2269 011316 

2270 011320 
2271 



010037 
010137 
005737 
001403 
004737 
010001 
005004 
005003 
010205 
011264 
011164 
022221 
00U01 
005203 
062704 
020427 
003764 
032765 
001403 
020427 
003755 
005703 
001402 
000241 
000401 
000261 
000207 



.SBTTl CKMSG - COMPARE WRITE CHAR. MESSAGE BUFFERS 



ROUTINE TO COMPAPE A WRITE CHARACTERISTICS EXPD AND RECV 
BUFFER. THE EXPECTtd AND RECEIVED BUFFERS ARE STORED FOR 
ERROR PRINT ROUTINES. 



INPUT: 



OUTPUT: 



RO 
R1 
R2 



RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
RECV MESSAGE BUFFER LOW ORDER ADDRESS 
EXPD MESSAGE BUFFER ADDRESS 



CARRY 



SET - MESSAGE BUFFERS NATCH 

CLR -MESSAGE BUFFERS DON'T HATCH 



IMPLICIT OUTPUT: 

EXPMS6 
RECMS6 
RCVHIAOD 
RCVLOADD 



BUFFER IS SET TO EXPD DATA 
BUFFER IS SET TO RECV DATA 
SET TO HIGH ORDER ADDRESS OF RECV 
SET TO LOW ORDER ADDRESS OF RECV 



CKMSG: 



002250 
002252 
003102 

020252 



002266 
002432 



000002 
000014 

000200 000012 
000016 



10$: 



15$: 



25S: 



SOS: 



5St: 
60S: 



SAVRE6 

NOV 

NOV 

TST 

BEQ 

JSR 

NOV 

CLR 

CLR 

NOV 

NOV 

NOV 

CNP 

BEQ 

INC 

ADO 

CMP 

BLE 

BIT 

BEQ 

CNP 

BLE 

TST 

BEQ 

CLC 

BR 

SEC 

RTS 



RO.RCVHIADD 
R1 .RCVLOAD 
KTENABLE 
10S 

PC.SETNAP 
R0.R1 
R4 
R3 

R2.R!^ 

(R2).EXPNSG(R4) 
(R1).RECNSG(R4) 
(R2)«,(R1)* 
25S 
R3 

02.R4 
R4.f14 
15i 

fX2.EXTF,XST2(R5) 
50S 

R4.f16 
15S 
R3 
55S 

60S 

PC 



SAVE R1-R^ UNTIL NEXT RETURN 
SAVE RECV HIGH ADDRESS 
SAVE RECV LOU ADDRESS 
TESTING ABOVE 28K? 
BR IF NO 

RETURN ADDRESS BIASED TO PAR6 IN RO 

GET RETURNED ADDRESS BIASED TO PAR6 

WORD IN BUFFER 

CLEAR ERROR SEEN FLAG 

GET EXPD BUFFER ADDRESS 

SAVE EXPD FOR ERROR REPORT 

SAVE RECV FOR ERROR REPORT 

EXPD EQUAL RECV? 

BR IF YES 

SET ERROR SEEN FLAG 
POINT TO NEXT WORD ADDRESS 
DONE FIRST 7 WORDS? 
BR IF NO 

:IS EXTENDED FEATURES SET IN EXPD? 
BR IF NO 

DONE EXTENDED FEATURES WORD? 

BR IF NO 

ANY ERRORS SEEN? 

BR IF NO 

SET FAILURE 

SET SUCCESS 
RETURN 



f 5 



CZTUXAO T'J80 front END PRT B HACRO HI 200 
CKHS62 - COMPARc EXPD RECV flESSAGE BUFFERS 



2273 

2274 

2275 

2276 

2277 

2278 

2279 

2280 

2281 

2282 

2283 

2284 

2285 

2286 

2287 

2288 

2289 

2290 

2291 

2292 

2293 

2294 

2295 

2296 

2297 

2298 

2299 

2300 011322 

2301 011322 
230? 011326 

2303 011332 

2304 011334 

2305 011340 
011340 
011344 
011350 
011352 
011354 

2306 011360 

2307 011364 

2308 011370 

2309 011374 

2310 011376 

2311 011402 

2312 011404 

2313 011406 

2314 011410 

2315 011414 

2316 011420 

2317 011422 

2318 011424 

2319 011426 

2320 011432 

2321 011434 

2322 011436 

2323 011440 

2324 011442 



29-nAR-63 13:32 PAGE 37 



.SBTTL CKNSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 



SEO 57 



020327 000144 
003412 

012703 000144 



012746 
012746 
010600 
104417 
062706 
010037 
010137 
005737 
001403 
004737 
010001 
005004 
005005 
111264 
111164 
122221 
001401 
005205 
062704 
02C4C3 
002001 
000764 
005705 
00U02 



011454 
000001 



000004 
002250 
002252 
003102 

020252 



002266 
002«32 



000901 



ROUTINE TO CONPAPF AN EXPECTED AND RECEIVED MESSAGE 
BUFFER. THE EXPECTtO AND RECElVcD BUYERS ARE STORED FOR 
ERROR PRINT ROUTINES. 



INPUT: 



RO 
R1 
R2 
R3 



RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
RECV MESSAGE BUFFER LOU ORDER ADDRESS 
EXPD MESSAGE BUFFER ADDRESS 
NUMBER OF BYTES TO COMPARE 



OUTPUT: 



CARRY 



SET • MESSAGE BUFFERS MATCH 

CLR - MESSAGE BUFFERS DON'T MATCH 



IMPLICIT OUTPUT: 

EXPHS6 
RECMSG 
RCVHIAD9 
RCVLOADD 



CKHSG2:: 



BUFFER IS SEl TO EXPD DATA 
BUFFER IS SET TO RECV DATA 
SET TO HIGH ORDER ADDRESS OF RECV 
SET TO LOU ORDER ADDRESS OF RECV 



5$: 



101: 
15S: 



25$: 



50V: 



SAVRE6 


;SAVE R1-R5 UNTIL NEXT RETURN 


CMP 


R3,rRECMSG-EXPMSG;BaD IS COUNT ABOVE MAX ALLOWED? 


BLE 


5$ iBBD BR IF NO 
fRECNSG-EXPMS6,R3;8aD 


MOV 


PRINTF 


fOEBUGNSG zBBD 


NOV 


fOEBUGNSG.-<SPS 




MOV 


#1.-(SP) 




MOV 


SP.RO 




TRAP 


CtPNTF 




ADD 


f4,SP 




MOV 


RO.RCVHIADD 


;SAVE RECV HIGH ADDRESS 


NOV 


RURCVLOAD 


;SAVE RECV LOU ADDRESS 


TST 


KTENABLE 


; TESTING ABOVE 28K? 


8EQ 


lot 


'BR IF NO 


JSR 


PCSETHAP 


■RETURN ADDRESS BIASED TO PAR6 IN RO 


NOV 


RO.I/' 


;GET RETURNED ADDRESS BIASED TO PAR6 


CLR 


R4 


;UORD IN BUFFER 


CLR 


R5 


; CLEAR ERROR SEEN FLAG 


NCVB 


(R2).EXPNSG(R4) , 


;SAVE EXPO FOR ERROR REPORT 


NOVB 


(R1).RECMSG(R4) 


;SAVE RECV FOR ERROR REPORT 


CNPB 


(R2)«,(R1)^ 


;EXPD EQUAL RECV? 


BEQ 


25$ 


;BR IF YES 


INC 


R5 


;SET ERROR SEEN FLAG 


ADD 


#1 .R4 


; POINT TO NEXT BYTE 


CMP 


R4.R3 


;OONE ALL BYTES? 


6GE 


50i 


;BR IF YES 


BR 


15$ 


;D0 NEXT BYTE 


TST 


R5 


;ANY ERRORS SEEN? 


BEO 


55$ :BR IF NO 



CZTUXAO TU80 FRONT END PftT B MACRO HI 200 
CKNSG2 - COMPARE EXPO RECV MESSAGE BUFFERS 



6 S 

29-MAR-83 13:32 PAGE 37-1 



SEO 56 



2325 01U4A 

2326 01 1446 

2327 Oil 450 
232S 01 1452 
2329 

2330 011454 

2331 011544 

2332 011555 

2333 011610 

2334 011643 
2335 



000241 
000401 
000261 
000207 

120 
045 
040 
056 
124 



122 
116 
040 
056 
105 



117 
045 
124 
056 
123 



55S: 
60S: 



CLC 
BR 
SEC 
RTS 



0EBUGHS6 
FERCM: .ASCI! 
ERCM: 
SJMSG: 
TINERR: 



60$ 

P*" 



SET FAILURE 

SET SUCCESS 
RETURN 



.ASCiZ 'PROGRAM INTERNAL ERROR -CKMSG2 MESSAGE BUFFER EXCEEDED>*:MD 

/XNXA •**/ 

.ASCIZ / TSSR ERROR CODE REC'D « / 
.ASCIZ /.... AFTER DOING SOFT INIT/ 
.ASCIZ /TEST: .../ 
.EVEN 



H 5 



i CZTUXAC TU80 FRONT END PRT 6 NACRO Ml 200 
CKNSG2 - COMPARE EXPO RECV MESSAGE BUf FERS 



?337 

2538 

2339 

2340 

2341 

2342 

2343 

2344 

2345 

2346 

2347 

2348 

2349 

2350 

2351 

2352 

2353 



c^-IUR-83 15:52 PACt 58 



SEO $9 



2354 
2355 
2356 



2357 
2358 
2359 
2360 
2361 
2362 
2363 
2364 
2365 
2366 
2367 
2368 
2569 

2370 
2371 
2372 
2373 
2374 
2375 
2576 



011656 
011656 
011656 
011662 
011666 
011666 
011666 



004757 005264 
004757 020156 



104425 



L 



2577 
2578 
2579 
2380 
2581 
2382 
2385 
2584 
2385 
2586 
2587 



011670 
011670 
011670 
011674 
011700 
011704 
011710 
011712 
011716 
011716 
011716 



004757 
012700 
004757 
015700 
005001 
004757 



104425 



005264 
000004 
007060 
002716 

014052 



PRINT ROUTINE TO FaIAL SOFT INlT ERRORS 
INPUT: 

R1 CONTENTS OF TSSR AT ERROR 

SIDE EFFECTS: 

EXECUTES DROP UNIT TO CEASE TESTING 



SFINSG:: 



L10005: 



BGNHS6 SFINSG 

JSR PC.PRITSSR 

JSR PC.CKDROP 
ENDMSG 

TRAP CSHSG 



:PRINT CONTENTS OF TSSR REGISTER 
.-DROP UNIT. IF ALLOWED 



PRINT ROUTINE TO PRINT THE CONTENTS OF 

TSSR AND A CONHAND PACKET OTHER THAN GET STATUS COMMAND PACKET. 



INPUTS: 



R1 TSSR CONTENTS 

R4 ADDRESS OF COMMAND PACKET 



PKTSSR:: 



BGNMSG PKTSSR 



L10004: 



JSR 
MOV 
JSR 
MOV 
CLR 
JSR 

ENDMS6 



PC.PRITSSR 

f4.R0 

PC.PRIPKT 

MESBFA.RO 

R1 

PC.PRMESS 



PRINT THE CONTENTS OF TSSR REGISTER 

NO. OF yORDS IN PACKET 

PRINT THE CONTENTS OF COMMAND PACKET 

ADDRESS OF MESSAGE BUFFER 

ASSUME NO HIGH MEMORY 

PRINT THE MESSAGE BUFFER ALSO 



TRAP CSMSG 



PRINT ROUTINE TO PRINT THE CONTENTS OF 
TSSR AND A GET STATUS COMMAND PACKET. 



INPUTS: 



R1 TSSR CONTENTS 

R4 ADDRESS OF COMMAND PACKET 



CZTUXAO TUftO fROHT EMD PRT B HACftO ni200 
CKNSGZ - COMPARE EXPO RECV MESSAGE BUFFERS 



1 S 

29-MAR-83 13;32 PAGE 38-1 



SEO 60 



2388 

2389 011720 
011720 

2390 011720 

2391 011724 

2392 011730 

2393 011734 
011734 
011734 

2394 
2395 
2396 
2397 
2398 
2399 
2400 
2401 
2402 
2403 
2404 

2405 011736 
011736 

2406 011736 

2407 011742 
011742 
011742 

2408 
2409 
2410 
2411 
2412 
2413 
2414 
2415 
2416 
2417 
2418 
2419 
2420 
2421 
2422 

2423 011744 
011744 

2424 011744 

2425 011750 

2426 011752 

2427 01 1754 

2428 011760 
011760 
011760 

2429 



004737 
012700 
004737 



104423 



005264 
000002 
007060 



BGIMS6 

PKT6ETS:: 

JSR 
MOV 
JSR 

ENDMS6 

L10005: 

TRAP 



PKT6ETS 

P''.PR1TSSR 

f2.N0 

PC.PRIPKT 



CSHS6 



.•PRINT THE CONTENTS OF TSSR REGISTER 
;N0. OF WORDS IN GET SiATUS PACKET 
: PRINT THE CONTENTS OF COMMAND PACKET 



PRINT TSSR ERRORS FOR INITIALIZATION TESTS 
INPUTS: 

R1 TSSR CONTENTS 

R4 ADDRESS OF COMMAND PACKET 



004737 
104423 



005264 



SFFMS6: : 



L10006: 



BGHMSG SFFHSG 

JSR PCPRITSSR 
EN0MS6 

TRAP CSMSG 



.•PRINT CONTENTS OF TSSR REGISTER 



.SBTTL PKTNES • PRINT TSSR AND MESSAGE BUFFER 



PRINT ROUTINE TO PRINT THE CONTENTS OF TSSR AND MESSAGE 
BUFFER FOR ERROR REPORTS 



INPUTS: 



R1 CONTENTS OF TSSR 

R2 LOU ORDER MESSAGE BUFFER 

R3 HIGH ORDER MESSAGE BUFFER ADDRESS 

NOTE; R3 IS IGNORED IF KTENABLE FLAG IS CLEAR 



004737 
010200 
010301 
004737 



104423 



005264 
014052 



PKTMES:: 



BGNMSG PKTMES 



L10007: 



JSR 
MOV 
MOV 
JSR 

ENDMS6 



PC.PRITSSR 
R2.R0 
R3.R1 
PC,PRME»S 



; PR INT CONTENTS OF TSSR 
:LOy ORDER ADDRESS 
;HI6H ORDER ADDRESS 
.•PRINT THE MESSAGE BUFFER 



TRAP CSMSG 



CZTUXAO TU80 FRONT END PRT B 
AOOSSR ^ PRINT TEST ADDRESS 



2431 
2432 
2433 
2434 
2435 
2436 
2437 
2438 
2439 
2440 
2441 
2442 

2443 011762 
011762 

2444 011762 

2445 011766 

2446 011772 

2447 011776 
011776 
011776 

2448 
2449 
24S0 
2451 
24S2 
24S3 
24S4 
2455 
2456 
2457 
2458 
2459 
2460 
2461 

2462 012000 
012000 

2463 012000 

2464 012004 

2465 012010 
012010 
012010 



J S 

MACRO m200 29-flAR-63 13:32 PACE 39 
TSSR 

.SBTTL ADDSSR - PRINT TEST ADDRESS AND TSSM 

♦ 

PRINT ROUTINE TO PRINT THE CONTENTS OP 
TSSR AND A NEHORv TEST ADDRESS 



SEQ 61 



004737 010014 
016S01 000000 
004737 005264 



104423 



2466 
2467 



012700 000007 
004737 015406 



104423 



INPUTS: 



R5 FIRST DEVICE UNIBUS ADDRESS 

ERRNI HIGH ORDER NEPIORY TEST ADDRESS 
ERRLO LOU ORDER NENORV TEST ADDRESS 



ADDSSR:: 



B6NRSG ADDSSR 



L10010: 



JSR 
NOV 
JSR 

ENDMS6 



PCPRITADD 

TSSR(RS).R1 

PC.PRITSSR 



:PRINT HENORY TEST ADDRESS 
;6ET CURRENT TSSR 

.•PRINT THE CONTENTS OF ^SSR REGISTER 



TRAP CMS6 



.SBTTL NSGEXP - PRINT URITE CHAR. EXPD-RECV MESSAGE BUFFERS 

♦ 

PRINT ROUTINE TO PRINT URITE CHARACTERISTIC MESSAGE BUFFER 
IMPLICIT INPUTS: 

EXPMSG - EXPECTED MESSAGE BUFFER 

RECMS6 - RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOAOO- RECEIVED MESSAGE BUFFER LOU ORDER ADDRESS 



MS6EXP:: 
5S: 

L1001V 



BGNRSG MSGEXP 



MOV 

JSR 

ENDMSG 



f7,R0 

PC«PRMSGEXP 



.•ASSUME NO EXT FEATURES 

: PRINT EXPD/RECV MESSAGE BUFFERS 



TRAP CSMSG 



K S 



CZTUXAO TU80 FRONT END PRT B MACRO Hi 200 
FIFEXP - PRINT FIFO EXP/RECV DATA 



2469 
2470 
2471 
2472 
2473 
2474 
2475 
2476 
2477 
2478 
2479 
2480 

2481 012012 
012012 

2482 012012 
012012 
01 2014 
012020 
012024 
012026 
012030 

2483 012034 
012034 
012040 
012044 
012046 
0120S0 

2484 01 2054 

2485 012056 

2486 012062 
012062 
012062 

2487 012064 

2488 012133 
2489 

2490 



010146 
012746 
012746 
010600 
104415 
062706 

012746 
012746 
010600 
104415 
062706 
010100 
004737 



104423 
045 
045 



29-MAR-83 13:32 PAGE 40 



.SBTTL FIFEXP - PRINT FIFO EXP/RECV DATA 



012064 
000002 



000006 

012133 
000001 



000004 
01S756 



116 
116 



PRINT ROUTINE TO PRINT FIFO EXP/RECV DATA 

R1 - BYTE COUNT 

IMPLICIT INPUTS: 

EXPflSG - EXPECTED MESSAGE BUFFER (CONTAINS irO DATA ONLY 
RECNSG - RECEIVED MESSAGE BUFFER (CONTAINS FJFO DATA ONLY) 



FIFEXP:: 



BGNMSG FIFEXP 



L10012: 

045 FIF1NS6: 
04S FIF2NS6: 



PRINTX 

NOV 

NOV 

MOV 

MOV 

TRAP 

ADD 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADD 

MOV 

JSR 

ENOHSG 
TRAP 



#FIF1MSG,R1 

RI.-(SP) 

ffFIFIMSG.-(SP) 

f2,-(SP) 

SP.RO 

CSPNTX 

«6.SP 

ffFIF2nSG 

#FIF2MSG.-(SP) 

fl.-(SP) 

SP.RO 

CSPNTX 

f4.SP 

R1»R0 

PC.PRBYTEXP 



: PRINT BYTES TRANSFERRED 



; PRINT HEADER MSG 



;GET BYTE COUNT 

: PRINT FIFO BYTES IN ERROR 



.EVEN 



CSMSG 

.ASCIZ 'XNXA NUMBER OF BYTES TRANSFERRED = SD2* 
.ASCIZ *SNXA FIFO DATA BYTES IN ERROR:* 



L S 



CZTUXAO TU«0 FRONT END PRT B HACRO HI 200 29-nAR-83 13:32 PACE 41 
NSGSTAT • PRINT STATUS HEADER AND MESSAGE BUfFERS 



SEQ 63 



2492 
2493 
2494 
2495 
2496 
2497 
2498 
2499 
2500 
2501 
2502 
2503 
2504 

mS 012172 
012172 

2506 012172 

2507 012176 

2508 012200 

2509 012202 
012202 
012204 
012210 
012212 
012214 

2510 012220 

2511 012222 

2512 012226 

2513 012232 
012232 
012232 

2514 

2515 012234 

2516 012252 

2517 012314 

2518 012405 

2519 012476 

2520 012567 

2521 012631 
2522 

2523 
2524 
2525 
2526 
2527 
2528 
2529 
2530 
2531 
2532 
2533 
2534 
2535 
2536 
2537 

2538 012706 
012706 

2539 012706 



012701 
012100 
001410 

010046 
012746 
010600 
104415 
062706 
000766 
012700 
004737 



104423 

012252 
045 
045 
045 
045 
045 
045 



.SBTTL NSGSTAT • PRINT STATUS HEADER AND MESSAGE BUFFERS 



PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 



IMPLICIT INPUTS: 



012234 



000001 



000004 

000012 
015406 



012314 012405 
116 045 



10S: 



EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOU ORDER ADDRESS 



: ASCI I ADDRESS TABLE 
;DONE ALL MSG LINES? 
*BR IF YES 

•PRINT STATUS BIT NAMES 



116 
116 
116 
116 
116 



045 
045 
045 
045 
045 



20S: 



L10013: 



STATCOD: 

ISr.ASCIZ 

2$:.ASCIZ 

3S:.ASCIZ 

4S:.ASCIZ 

5S:.ASC1Z 

6$:.ASC1Z 



BGNHSG 

• 


MSGSTAT 


NOV 


fSTATCOD.RI 


MOV 


(R1}«,R0 


BEQ 


20$ 


PRINTX 


RO 


MOV 


RO,-(SP) 


MOV 


f1.-<SP) 


MOV 


SP.RO 


TRAP 


CSPNTX 


ADD 


f4,SP 


BR 


10S 


MOV 


flO.^RO 


JSR 


PC.PRMSGEXP 


ENDNSG 




TRAP 


CSMSG 



:D0 ANOTHER MSG LINE 

:NUMBER OF WORDS IN A READ STATUS BUFFER 
.-PRINT EXPD/RECV MESSAGE BUFFERS 



.WORD 1S,2S.3$.4$,5$.6S.O 
*INU Tapt Bus Signals In Word #8:* 

PARERR<1S> lEOT <12> IFMK <9> IRDY<6> 

IRESV2<14> II0ENT<11> IHER <8> IONL<S> 

IRESV1<13> ICER <10> ISPEED<7> ILDP<4> 
'MIA Tap* Bus Signals In Word #9:* 



*INIA 
*INIA 
•INIA 



IRUD<2>* 
IFBy<1>' 
IFPT<0>* 



'INIA 



DATMIS<7> ILU<6> 0UTRDY<5> INRDY<4>' 



.EVEN 



.SBTTL MSGLOOP - PRINT L00P8ACK HEADER AND MESSAGE BUFFERS 

♦ 

PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 

IHPLIIIT INPUTS: 

EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOU ORDER ADDRESS 



012701 012750 



BGNNSG MSGLOOP 
MSGLOOP:: 

MOV fLOOPCOD.RI 



.ASCII AilMKS TABLE 



CZTUXAO TUSO FRONT END PRT B HACRO H1200 29-MAR-83 13:32 
HSGLOOP > PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 



H 5 
PAGE 41-1 



SEO 6« 



2540 012712 

2541 012714 

2542 012716 
012716 
012720 
012724 
012726 
012730 

2543 012734 

2544 012736 

2545 012742 

2546 012746 
012746 
012746 

2547 

254B 012750 

2549 012770 

2550 013043 

2551 013142 

2552 013241 

2553 013340 

2554 013437 

2555 01 3536 
2556 

2557 



012100 
001410 

010046 
012746 
010600 
104415 
062706 
000766 
012700 
004737 



104423 

012770 
045 
045 
045 
04 S 
045 
045 
045 



000001 



000004 

000012 
015406 



013043 013142 
116 045 



116 
116 
116 
116 
116 
116 



045 
045 
045 
045 
045 
045 



10S: 



20S: 



L10014: 



NOV 
6EQ 
PRINTX 

mv 

NOV 

NOV 

TRAP 

ADD 

BR 

nov 

JSR 

ENDMSG 



(RD^.RO 

20$ 

RO 

RO.-{SP> 

fl.-(SP) 

SP.RO 

CSPNTX 

f4,SP 

10S 

#10. .RO 
PCPRHSGEXP 



.-DONE AU NS6 LINES? 
'BR IF YES 

•PRINT STATUS BIT NAMES 



DO ANOTHER MSG LINE 

NUMBER OF WORDS IN A READ STATUS BUFFER 
PRINT EXPD/RECV MESSAGE BUFFERS 



TRAP CSHSG 



LOOPCOD: 



IS 
2$ 
31 
4$ 
5$ 
6S 
7$ 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 



'INSA 
*SNSA 
•SNIA 
'SNIA 
*INIA 
'XNU 
'SNIA 



.UORD U.2$.3S,4S.5S.6$.7S.O 
Ttpt But Loopback Signals In Word #8:* 



.EVEN 



PARERR<15> 
IHISP«>IE0T<12> 
lUFN OIFMK<09> 
ITAD0»IRDV<06> 
IREU s>IDBY<03> 
IGO «>IFPT<00>' 



IRESV2<14> 
IURTs>IIDENT<11> 
IEDir«>IHER <08> 
ITADIOIONL <05> 
IRUU s>lRyD <02> 



IRESV1<13>' 
IREV «>ICER <10>' 
IFAD «>ISPEED<07>' 
lERASEOlLDP <04>* 
IFEN «>IFBY <01>' 



N S 
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SEO 65 



2559 
2560 
2561 
2562 
2563 
256A 
2565 
2566 
2567 
2568 
2569 
2570 
2571 

2572 013564 
013564 

2573 013564 

2574 013570 

2575 013574 
013574 
013574 

2576 
2577 
2578 
2579 
2580 
2581 
2582 
2583 
2584 
2585 
2586 
2587 
2588 
2589 
2590 
2591 
2592 

2593 013576 
013576 

2594 013576 

2595 013602 

2596 013606 

2597 013612 

2598 013616 
013616 
013616 

2599 



.SBTTL NSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 



PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 



IMPLICIT INPUTS: 

EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG • RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



012700 000012 
004737 015406 



104423 



MSGSUB:: 



B6NMSG MSGSUB 



L10015: 



MOV 

JSR 

ENDNSG 



#10., RO 
PC.PRMSGEXP 



;SIZE OF WRITE SUBSYSTEM BUFFER 
:PRINT EXPD/RECV MESSAGE BUFFERS 



TRAP CSMSG 



. SBTTL MEMAOD - PRINT MEMORY ADDRESS DATA ERROR 



PRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR 



IMPLICIT INPUTS: 



ERRHI - MEMORY ERROR HIGH ORDER ADDRESS 

ERRLO - MEMORY ERROR LOU ORDER ADDRESS 

EXP - EXPECTED DATA 

RECV • RECEIVED DATA 



004737 007700 

013701 002176 

013702 002200 
004737 007462 



104423 



MEMADD:: 



BGNNS6 MEMAOD 



L10016: 



JSR 
MOV 
NOV 
JSR 

ENDNSG 



PC « PR I ADD 
EXPD.R1 
RECV.R2 
PC.PRIXOR 



; PRINT MENORY ADDRESS IN ERROR 
:GET EXPD DATA 
;GET RECEIVED DATA 
: PRINT EXPD/RECV 



TRAP CSHSG 



B 6 



CZTUXAO TU80 FRONT END PRT 8 MACRO 111200 
PRAMPKT - PRINT RAH AND PACKET DATA 



2601 
2602 
2603 
2604 
260S 
2606 
2607 
2608 
2609 
2610 
2611 
2612 
2613 
26U 
2615 
2616 
2617 
2618 
2619 
2620 
2621 

2622 015620 

2623 013620 

2624 013624 

2625 013630 

2626 013632 

2627 013634 

2628 013636 

2629 013642 

2630 013646 

2631 013656 

2632 013662 

2633 013670 

2634 013676 
013676 
013700 
013704 
013710 
013712 
013716 
013722 
013724 
013726 

2635 013732 

2636 013734 

2637 013740 

2638 013742 

2639 013746 

2640 013750 

2641 013752 

2642 013756 

2643 013760 

2644 013764 
2645 

2646 013766 
2647 



012701 
005002 
122124 
001000 
116105 
116403 

042703 
116137 
116437 

010346 
013746 
013746 
010246 
012746 
012746 
010600 
104414 
062706 
005202 
005737 
001404 
020237 
003731 
000403 
020227 
002725 
005037 
000207 

045 
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.SBTTL PRAUPKT - PRINT RAH AND PACKET DATA 



SEO 66 



PRINT ROUTINE TO DISPLAY RAN/PACKET DATA 
WHEN THE RAM DATA DOES NOT HATCH. 

INPUTS: 

R4 POINTER TO CONHANO PACKET 
IMPLICIT INPUTS! 



RAMDATA 
RAMSIZ 



DATA AS READ FROM THE RAM 
NUMBER OF BYTES IN PACKET 
IF RAMSIZsO THEN DEFAULT TO 8. 



IMPLICIT OUTPUTS: 

RAMSIZ SET TO 0 

PRAMPKT: 



002206 



177777 
177777 



177400 

177777 002200 
177777 002176 



002176 
002200 



013766 
000005 



000014 
002246 
002246 

000010 
002246 

116 





SAVREG 


;SAVE R1-R5 UNflL NEXT RETURN 




MOV 


fRANDATA.RI 


:DATA FRON THE RAM 


5S: 


CLR 


R2 ;INIT BYTE NUMBER 


CMP8 


(R1)^.(R4)^ .-COMPARE EXPECTED. RECEIVED 


7S: 


BNE 


7S ;BR IF NO NATCH 


HOVB 


-1(R1).R5 ;6ET RECV RAM DATA 




NOVB 


-1(R4).R3 :GET EXPD PACKET DATA 




XOR 


R5.R3 :XOR EXPD/RECV 




BIC 


«177400.R3 :LOU BYTE ONLY 




MOVE 


-KRD.RECV .-GET RECEIVED RAM DATA 




MOVB 


-1(R4).EXPD :GET EXPECTED RAM DATA 




PRINTB 


«RAMASC.R2.RECV.EXPD.R3 




NOV 


R3.-(SP) 






NOV 


EXPD. -ISP) 






NOV 


RECV.-(SP) 






NOV 


R2.-(SP) 






NOV 


«RAMASC.-(SP) 






NOV 


#5.-<SP) 






NOV 


SP.RO 






TRAP 


CSPNTB 






ADD 


#14. SP 




10S: 


INC 


R2 


; UPDATE BYTE COUNT 




TST 


RAMSIZ 


IDEFAULI TO 8.? 




BEQ 


15» 


;BR IF YES 




CNP 


R2.RANSIZ 


;DONE ALL BYTES? 




BLE 


5$ 


•BR IF NO 




BR 


25$ 




15$: 


CNP 


R2.«8. 


;DONE DEFAULT NUMBER OF BYTES? 


20$: 


BLT 


5$ 


;BR IF NO 


25S: 


CLR 


RAMSIZ 


;SET DEFAULT RAMSIZ 




RTS 


PC 


; RETURN 



045 



RANASC: .ASCIZ 
.EVEN 



*SNU BYTE: ID2U RAN: I03U Packet: l03tA X0R:X03* 



C 6 



CZTUXAO TU80 FRONT END PRT B MACRO H1200 
PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 



26A9 

2650 

26S1 

2652 

2653 

2654 

2655 

26S6 

2657 

2658 

2659 

2660 

2661 

2662 

2663 

2664 

2665 

2666 014052 

2667 014052 

2668 014056 

2669 014062 

2670 014064 

2671 014070 

2672 014072 

2673 014074 

2674 014076 

2675 014100 

2676 014102 
014102 
014104 
014106 
014112 
014116 
014120 
014122 

2677 014126 

2678 0U152 

2679 014154 
014154 
014140 
014144 
014146 
014150 

2680 0141 54 
0U1S4 
014160 
014164 
014166 
014170 

2681 014174 

2682 GUI 76 
2685 0U200 

2684 014202 

2685 014204 

2686 014210 

2687 014212 

2688 014212 
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.SBTTL PRNESS - PRINT CONTENTS OF NESSA5E BUFFER 



SEQ 67 



010537 
010005 
005737 
001001 
005001 
010103 
006100 
006101 

010546 
010146 
012746 
012746 
010600 
104415 
062706 
022715 
001010 

012746 
012746 
010600 
104415 
062706 

012746 
012746 
010600 
104415 
062706 
005004 
010501 
010500 
001405 
004757 
01000S 



THIS ROUTINE PRI«<TS THE CONTENTS OF 

THE 7 WORD MESSAGE BUFFER RETURNED BY THE 

TU80. 

INPUT: 

RO LOU ORDER ADDRESS OF MESSAGE BUFFER 

R1 HIGH ORDER ADDRESS OF MESSAGE BUFFER 

NOTE: R1 IS IGNORED IF KTENABLE FLAG IS CLEAR 

THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 



PRNESS: 











01101? 








00310? 




MOW 


RO RS 




TST 








RiiF 


IOC 






CLR 


R1 




lot* 


HOW 


R1 RY 








RO 






ROL 


R1 






PR INT V 


irPROACF D1 R^ 






NOV 




014677 






R1.-<SP) 




MOV 




000005 




mv 


f5,-'(SP) 






MOV 


SP.RO 






TRAP 


CtPNTX 


000010 




ADD 


flO.SP 


177777 




CMP 


#1 77777. <R5) 






BNE 


15S 






PRINTX 


fRESBFN 


014617 




mv 


fMESBFN.-(SP> 


000001 




MOV 


f1,-(SP) 






MOV 


SP.RO 






TRAP 


CSPNTX 


000004 




ADD 


f4«SP 




1SS: 


PRINTX 


fPRlASC 


014744 




NOV 


fPR1ASC,-(SP) 


000001 




mv 


f1,-<SP) 






mv 


SP.RO 






TRAP 


CSPNTX 


000004 




ADD 


#4.SP 






CLR 


R4 






mv 


RS.RI 






mv 


R5,R0 






BEQ 


20t 


020252 




JSR 


PC.SETHAP 






mv 


R0,R5 




20S: 








PRINTX 


fNESHEA.(R5)« 



.•SAVE THE REGISTERS 

;SAVE DEVICE REGISTER POINTER 

;SAVE LOU ORDER ADDRESS 

.•ADDRESS ABOVE 28K? 

•BR IF YES 

;SET HIGH ORDER ADDRESS TO 0 
.•SAVE HIGH ORDER ADDRESS 
;SHIFT BIT15 TO C BIT 
.•SHIFT TO HIGH ORDER FOR PRINTOUT 
.PRINT MESSAGE BUFFER ADDRESS 



:MESSAGE BUFFER FULL OF ONES 
:BR IF BUFFER IS PROBABLY OKAY 
:'1tESSAGE BUFFER PROBABLY NOT VALID" 



.PRINT HEADER FOR CONTENTS 



:NUmER OF THE NEXT WORD 

:COPV LOU ORDER ADDRESS 

.•COPY HIGH ORDER ADDRESS 

;BR IF NOT ABOVE 28K 

.•SETUP PAR ADDRESS IN RO 

;GET PAR FORMAT ADDRESS ABOVE 28K 

:PRINT 'tlESSAGF BUFffR HfAPgR a" 



CZTUXAO TU80 FRONT END PRT B fUCRO NIZOO 

PRHESS - PRINT CONTENTS OF NESSAGE BUFFER 

OU212 01 2546 

0U2U 012746 01S002 

014220 012746 000002 

0U224 010600 

014226 10441S 

014230 062706 000006 

2689 014234 
014234 012S46 
014?% 012746 015047 
014242 012746 000002 
014246 010600 
014250 104415 
014252 062706 000006 

2690 014256 
014256 012546 
014260 012746 015114 
014264 012746 000002 
014270 010600 
014272 104415 
014274 062706 000006 

2691 014300 
014300 012546 
014302 012746 015161 
014306 012746 000002 
014312 010600 
014314 104415 
014316 062706 000006 

2692 014322 
014322 012546 
014324 012746 015226 
014530 012746 000002 
014334 010600 
014336 104415 
014340 062706 000006 

2693 014344 
014344 012546 
014346 012746 015273 
014352 012746 000002 
OUm 010600 
014360 104415 
014362 062706 000006 

2694 014366 
014366 012546 
014370 012746 015340 
0US74 012746 000002 
014400 010600 
014402 104415 
014404 062706 000006 

2695 014410 022737 000001 002134 

2696 014416 001042 

2697 014420 

014420 012746 014526 

014424 012746 000001 

014430 010600 

014432 104415 

01U34 062706 000004 

2698 014440 012737 000010 002246 
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NOV (R5)*,-(SP) 

NOV fNESMEA,-(SP) 

NOV f2,-(SP) 

NOV SP.RO 

TRAP CSPNTX 

ADD f6,SP 

PRINTX ffOATAFL.(R5)« 

NOV (RS)«,-(SP) 

NOV #DATAFL.-{SP) 

NOV f2,-(SP) 

NOV SP.RO 

TRAP CSPNTX 

ADD f6,SP 

PRINTX ffRBPCRA,(RS)* 

NOV (R5)*.-(SP) 

NOV fRBPCRA,-(SP} 

NOV ff2.-(SP) 

NOV SP.RO 

TRAP CSPNTX 

ADD ff6.SP 

PRINTX ffXSOCON.(RS)* 

NOV (R5)>.-(SP) 

NOV ffXS0CON.-(SP> 

NOV f2,-(SP) 

NOV SP.RO 

TRAP CSPNTX 

ADD ff6.SP 

PRINTX ffXS1C0N,(R5)> 

NOV (R5)>,-(SP) 

NOV ffXSICON.-(SP) 

NOV #2.-(SP) 

NOV SP.RO 

TRAP CSPNTX 

ADD f6.SP 

PRINTX fXS2C0N.(R5)* 

NOV (R5)«.-(SP) 

NOV ffXS2C0N.-(SP) 

NOV ff2.-(SP) 

NOV SP.RO 

TRAP CSPNTX 

ADD «6.SP 

PRINTX #XS3C0N.(RS)^ 

NOV («5)*.-(SP) 

NOV ffXS3C0N.-(SP) 

NOV ff2.-(SP) 

NOV SP.RO 

TRAP CSPNTX 

ADO ff6.SP 

CNP ffl.TRANSTST 

BNE 50S 

PRINTX ffRAHFHR 

NOV ffRAHFHR.-(SP) 

NOV #1.-($P) 

NOV SP.RO 

TRAP CSPNTX 

ADD ff4.SP 



;PRINT "DATA FIELD LENGTH 



;PRINT "RESIDUAL BYTE COUNTER 



:PRINT "XSTATO CONTENTS 



;PRINT "XSTAT1 CONTENTS 



;PRINT "XSTAT2 CONTENTS 



;PRINT "XSTAT3 CONTENTS 



; CHECK FOR OUNP 

;BR« IF NO DUf«» REQUIRED 



CZfUXAO TU80 fRONT END PRT B HACRO HI 200 
PRHESS - PRINT CONTENTS OF MESSAGE BUFFER 



29-MAR-8S 13:32 PAGE 44-2 



SEQ 69 



2699 0UU6 

2700 0U4S4 

2701 0U460 

2702 0U466 

2703 0U472 

2704 OUSOO 

2705 014504 

2706 014512 

2707 014520 

2708 014524 

2709 014526 

2710 014617 

2711 014677 

2712 014744 
2713 

2714 015002 

2715 015047 

2716 015114 

2717 015161 

2718 015226 

2719 015273 

2720 015340 
2721 



012737 
004737 
012737 
004737 
012737 
004737 
012737 
012737 
004737 
000207 
045 
045 
045 
045 

045 
045 
045 
045 
045 
045 
045 



000020 
010626 
000040 
010626 
000060 
010626 
000020 
000100 
010626 

116 
116 
116 
116 

116 
116 
116 
116 
116 
116 
116 



011010 

011010 

011010 

002246 
011010 



045 
045 
045 
045 

045 
045 
045 
045 
045 
045 
045 



SOS: 



NOV 
JSR 
NOV 
JSR 
NOV 
JSR 
NOV 
NOV 
JSR 
RTS 



RANFHR: .ASCIZ 

NES6FN: .ASCIZ 

PROASC: .ASCIZ 

PR1ASC: .ASCIZ 



NESHEA: 
OATAFL: 
RBPCRA: 
XSOCON: 
XS1C0N: 
XS2C0N: 
XS3C0N: 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 



f20,RANHLD 
PC. RARER 
f40,RAHHLD 
Pr .RANER 
f60,RANHLD 
PC. RANER 
#16..RANSI2 
flOO.RANHLD 
PC, RANER 
PC 

•INXA 

*XNXA NESSAGE 
*XNSA Ntssagt 
*INSA Ntssagt 



:FIELD STARTS AT 20 OCTAL (10 HEX) 
.-READ AND PRINT THEN 
.•FIELD STARTS AT 40 OCTAL (20 Hif) 
;READ AND PRINT THEN 
SFIELD STARTS AT 60 OCTAL (30 HEX) 
;REA0 AND PRINT THEN 
:RAN FIELD IS SIXTEEN BYTES LONG 
;FIELD STARTS AT 100 OCTAL (40 HEX) 
;READ AND PRINT THEN 
•RETURN 

•^'special N7454 RAH NEHORV DUHP 
BUFFER CONTENTS PROBABLY NOT VALID* 
Bufftr Addrtss - S01X05* 
Bufftr Conttnts:* 



*SNXA Htssaat Bufftr Httdtr = X06* 

*SNXA Data Fltld Ltngth s X06* 

*XNXA Rtsldual Bytt Counttr s X06* 

*XNXA XSTATO Conttnts « X06' 

*XNXA XSTAT1 Conttnts » X06' 

*XNXA XSTAT2 Conttnts - X06' 

*XNXA XSTAT3 Conttnts s X06* 



f 6 
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EQ 70 



2723 
2724 
2725 
2726 
2727 
2/28 
2/29 
2730 
2751 
2732 

2733 015406 

2734 015406 

2735 015412 

2736 015414 

2737 015420 

2738 015422 

2739 015426 

2740 015450 

2741 015432 
015432 
015434 
015436 
015442 
015446 
015450 
015452 

2742 015456 
015456 
015462 
015466 
015470 
015472 

2743 015476 

2744 015500 

2745 015504 

2746 015510 

2747 015512 

2748 015514 

2749 015524 
015524 
015526 
015530 
015532 
015534 
015540 
015544 
015546 
015550 

2750 015554 

2751 015556 

2752 015560 
2755 015562 

2754 015564 

2755 015546 

2756 015633 

2757 015671 
2758 



010005 
013700 
010004 
013701 
006100 
006101 

010446 
010146 
012746 
012746 
010600 
104415 
062706 

012746 
012746 
010600 
104415 
062706 
005004 
012701 
012702 
011100 
011203 



010346 
012246 
012146 
010446 
012746 
012746 
010600 
104415 
062706 
005204 
020405 
002001 
000752 
000207 
045 
045 
045 



002252 
002250 



015566 
000003 



000010 

015633 
000001 



000004 

002266 
002432 



01S67* 
000005 



000014 



116 
116 
116 



.S8TTL PRNSGEXP > PRINT EXPD/RECV MESSAGE BUFFERS 

♦CB 

ROUTINE 7C PRINT EXPECTED AND RECEIVED MESSAGE BUFFERS 

RO - NUMBER OF WORDS IN BUFFER 
IMPLICIT INPUTS: 

EXPMSG - EXPECTED MESSAGE BUFFER 
RECMSG - RECEIVED MESSAGE BUFFER 
RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
RCVLOADO- RECEIVED MESSAGE BUFFER LOU ORDER ADDRESS 

PRNSGEXP: : 



20S: 



50$: 

045 PRNSGO: .ASCIZ 

045 PRHS61: .ASCIZ 

045 PRNSG2: .ASCi.* 



SAVREfi 


« 


•CAWP ftlsDC IMITtl llCvr DBTliBkl 


MOV 


RO RS 




MOV 


RCVLOADD RO 


•fiFT RFfV LOU ADDRFSC 


NOV 


RO R4 


•copy LOU ADDRFSS 


HOV 


RCVHIADD.R1 


•GET RECV HIGH ADDRESS 


ROL 


RO 


:SHIFT BIT1S TO C BIT 


ROL 


R1 


*SHIFT TO HIGH ORDER FOR PRIMTOUT 


PRINTX 


ffPRMSG0,R1.R4 


•PRINT MESSAfif BUFFFft ADDRFSS 


HOV 


R4,-(SP) 


HOV 


RI.-(SP) 




HOV 


fPRMS60.-(SP) 




HOV 


f3.-(SP) 




HOV 


SP.RO 




TRAP 


CSPNTX 




ADD 


flO.SP 




PRINTX 


fPRRSGI 


:PRINT HEADER FOR CONTENTS 


HOV 


fPRHSG1,-(SP) 


HOV 


f1.-(SP> 




HOV 


SP.RO 




TRAP 


CSPNTX 




ADD 


#4.SP 




CLR 


R4 


.•NUMBER OF THE CURRENT UORO 


HOV 


fEXPMSG.RI 


;6ET EXPD BUFFER ADDRESS 


HOV 


#RECMS6.R2 


:GET RECV BUFFER ADDRESS 


HOV 


(RD.RO 


:6ET EXPD 


HOV 


(R2}.RS 
RG.RS 


;GET RECV 


XOR 


;XOR EXPD/RECV 


PRINTX 


fPRRS62 ,R4 . (R1 ) ♦ . (R2) ♦ .R3 


HOV 


R3.-(SP) 
(R2)«.-(SP) 




HOV 




HOV 


(R1)^«-(SP) 
R4.-(SP) 




HOV 




HOV 


fPRMSG2.-(SP) 




HOV 


f5.-(SP) 




HOV 


SP,RO 




TRAP 


CSPNTX 




ADD 


#14, SP 




INC 


R4 


.-NUMBER OF THE NEXT 


CMP 


R4.R5 
50i 


;DONE ALL YET? 


B6E 


;BR IF YES 
:D0 ANOTHER 


BR 


20$ 


RTS 


PC 


; RE TURN 



*INU H«ss«gt Bufftr Addrtss < 101X05* 
*SNXA HtsSMt Bufftr Conttntt:* 
*mA WORD fXD2XA EXPD: I06M 8ECV: X06U XOR: X06' 



G 6 
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r'RBYTEXP - PRINT ERROR BYTES IN EXP/REC AESSA6E BUFFER 



PAGE 46 



SEO 71 



2760 

2761 

2762 

2763 

2764 

276S 

2766 

2767 

2768 

2769 

2770 

2771 

2772 

2775 015756 

2774 015756 

2775 015762 

2776 015764 

2777 015770 

2778 015772 
:779 015776 

2780 016002 

2781 016004 

2782 016010 

2783 016014 

2784 016016 
2735 016022 

2786 016026 

2787 016036 

2788 016040 

2789 016042 

2790 016046 

2791 016054 

2792 016056 
016056 
016060 
016064 
016070 
016072 
016076 
016102 
016104 
016106 

2793 016112 

2794 016122 

2795 016124 
27V6 016124 

2797 016154 

2798 016*'* 

2799 016 '56 

2800 016U0 

2801 016142 

2802 016144 
016144 
016150 
016154 
016160 
016162 



010005 
005037 
005004 
012701 
012702 
111100 
042700 
110037 
111203 
04^703 
110337 

122122 
001431 
005237 
023727 
101023 

010346 
013746 
013746 
010446 
012746 
012746 
010600 
104415 
062706 

000404 



005204 
020405 
002001 
000717 

013746 
012746 
012746 
010600 
10441 S 



^ .SBTTL PRBVTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 

ROUTINE TO PRINT CRROR BYTES IN MESSAGE BUFFERS 

ONLY THE FINST 8 ERRORS ENCOUNTERED ARE PRINTED DUE TO SCREEN SPACE 

RO - NUMBER OF BYTES IN BUFFER 

IMPLICIT INPUTS: 

EXPMS6 - EXPECTED MESSAGE BUFFER 
RECMS6 - RECEIVED MESSAGE BUFFER 



002264 

002266 
002432 

177400 
016324 

177400 
016326 



002264 

002264 000010 



016326 
016324 

016172 
000005 



000014 



PRBYTEXP:: 

SAVREG 

HCV 

CLR 

CLR 

MOV 

NOV 
20$: NOVB 

BIC 

NOVB 

M0V8 

BIC 

NOVB 

XOR 

CMPB 

BEQ 

INC 

CNP 

BHI 

27$: PRINTX 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
TRAP 
ADD 

FORCEXIT 



002264 
016257 
000002 



30$: 
35$: 



50$: 



R0.R5 
PRMNO 
R4 

fEXPMS6«R1 

ffRECMS6.R2 

(RD.RO 

fC<377>.R0 

RO.PRBEXP 

(R2),R3 

fC<377>.R3 

R3,PRBREC 

R0,R3 

(R1)«.(R2)« 
50$ 
PRMNO 
PRMNO.fB. 
30$ 



fPRBNS6.R4,PRBEXP.PRBREC ,R3 
R5.-(SP) 
PRBREC.-(SP) 
PRBEXP,-(SP) 
R4,-(SP) 
fPRBMS6.-(SP) 
#5.-(SP) 
SP.RO 
CSPNTX 
fU.SP 

50$ 



SAVE R1-R5 UNTIL NEXT RETURN 
SAVE NUMBER OF BYTES 
INIT ERROR COUNT 
NUMBER OF THE CURRENT BYTE 
GET EXPD BUFFER ADDRESS 
GET RECV BUFFER ADDRESS 
GET EXPD BYTE 
CLEAR UPPER BYTE 
SAVE FOR ERROR REPORT 
GET RECV BYTE 
CLEAR UPPER BYTE 
FOR ERROR REPORT 
XOR EXPD/RECV 
EXPD « RECV? 
BR IF YES 
UPDATE ERROR COUNT 
PRINTED 8? 
BR IF YES 



35$ 

FORCERROB 27$,N0TSSR 



INC 
CMP 
B6E 
BR 

PRINTX 

NOV 

NOV 

NOV 

NOV 

TRAP 



R4 

R4.R5 

50$ 

20$ 

fPRBTOT. PRMNO 

PRNNO.-(SP) 

fPMTOT.-(SP) 

f2.-(SP) 

SP.RO 

CBPIITM 



;aaD 
;aao 

BBD 
BSD 

NUMBER OF THE NEXT 
DONE ALL YET? 
BR IF YES 
00 ANOTHER 

PRINT TOTAL ERROR COUNT 



C2TUXA0 TU80 fRONT END PRT 6 HACRO 111200 29-MAR-83 13:32 
PPBYTEXP - PRINT ERROR BYTES IN EXP/REC NESSA6E BUFFER 



H 6 
PAGE 46-1 



SCO 72 



2803 

28C4 

2B0S 

2806 

2807 

2808 

2809 

2810 

2811 

2812 

2813 

2814 

281 S 

2816 

2817 

2818 

2819 

2820 

2821 

2822 
2823 



016164 062706 000006 
016170 000207 



016172 
016257 



045 
045 



016324 000000 
016326 000000 



116 
116 



016330 
016330 

016330 004737 007462 

016334 

016334 

016334 104423 



ADO f6.SP 
RTS PC 

045 PRBNS6: .ASCIZ 

045 PR8T0T: .ASCIZ 
.EVEN 
PRBEXP: .yORD 0 
PR8REC: .WORD 0 



; RE TURN 

*«NXA BYTE m2lA EXPD: 103XA RECV: X03XA XOM: X03' 
*XNXA NUHBER OF BYTES IN EP»nR * |D2' 

;EXPD 
;RECV 



PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
INPUTS: 

R1 RECEIVED DATA 
R2 EXPECTED DATA 



EXPREC:: 



L10017: 



BGNNS6 EXPREC 

JSR PCPRIXOR 
ENOMSG 



; PRINT THE DATA 



TRAP 



CMSG 



I 6 



CZTUXAO TUftO FRONT END PftT B 
ltPZ;<iL ' ??slHJ EXPD/RECV BYTE 



282S 
2826 
2827 
2828 
2829 
2830 
2831 
2832 
2833 
283A 
283S 
2836 
2837 
2838 



MACRO HI 200 29-flAR-83 13:32 PAGE 47 
DATA 



iEO 73 



2839 
2840 



2841 
2842 
2843 
2844 
284S 
2846 
2847 
2848 
2849 
2850 
28S1 
2852 
2853 
2854 
2855 
2856 
2857 
2858 
2859 
?860 
2861 
2862 
2863 
2864 
2865 

2866 
2867 



2868 
2869 
2870 
2871 
2872 
2873 
2874 
2875 



016336 
016336 

016336 004737 007332 

016342 

016342 

016342 104423 



016344 
016344 

016344 004737 013620 

016350 

016350 

016350 104423 



.SSTTL EXP8REC - PRINT EXPD/RECV BYTE DATA 



PRINT ROUTINE TO DISPLAY BYTE EXPD/RECV DATA 



INPUTS: 



R1 RECEIVED DATA BYTE 
R2 EXPECTED DATA BYTE 



B6NMSG EXPBREC 
EXPBREC:: 

JSR PCPRIBXOR 
ENDMSG 

L10020: 

TRAP CSnSG 



; PRINT THE DATA 



.S8TTL RANERR - PRINT RAH AND PACKET DATA 

♦ 

PRINT ROUTINE TO DISPLAY RAN/PACKET DATA 
INPUTS: 

R4 POINTER TO CONNAND PACKET 
IMPLICIT INPUTS: 



RAflDATA 
RANSIZ 



DATA AS READ FROM THE RAM 
NUMBER OF BYTES IN PACKET 
IF RANSIZsO THEN DEFAULT TO 8. 



IMPLICIT OUTPUTS: 

RANSI2 SET TO 0 



L10021: 



BGNMSG RAMERR 

JSR PC.PRAHPKT 
ENDMSG 

TRAP C$NSG 



;PRINT RAM/PACKET DATA 



.SBTTL RAHTADD - PRINT TEST ADDRESS. RAM AND PACKET DATA 
•PRINT ROUTINE TO DISPLAY RAN/PACKET DATA 

; INPUTS; 



CZTUXAO TU80 FRONT END PRT B MACRO ni200 29-^-85 13:32 
RAHTAOO - PRINT TEST ADDRESS, RAN AND PACKET DATA 
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SEQ 74 



2876 
2877 
2878 
2879 
2880 
2881 
2882 
2883 
2884 
2885 
2886 
2887 
2888 
2889 
2890 
2891 

2892 016352 
016352 

2893 016352 

2894 016356 

2895 016362 
016362 
016362 

2896 
2897 
2898 
2899 
2900 
2901 
2902 
2903 
2904 
2905 
2906 
2907 
2908 
2909 

2910 016364 
016364 

2911 016364 

2912 016370 

2913 016374 

2914 016400 

2915 016404 
016404 
016404 

2916 
2917 
2918 
2919 
2920 
2921 
2922 
2923 
2924 
2925 
2926 



R4 POINTER TO CONNAND PACKET 

IHPLICIT INPUTS: 



RANOATA 
RAMSIZ 

ERRHI 
ERRLO 



DATA AS READ FROM THE RAH 
NUMBER OF BYTES IN PACKET 
IF RANSIZ«0 THEN DEFAULT TO 8. 
HIGH ORDER TEST ADDRESS 
LOU ORDER TEST ADDRESS 



004737 
004737 



104423 



010014 
013620 



IKPLKIT OUTPUTS: 

RANSIZ SET TO 0 

B6NNS6 RANTADD 
RAMTADD:: 

JSR PC.PRITAOD 

JSR PC.PRAHPKT 
ENDHSG 

L10022: 

TRAP CMS6 



; PRINT TEST ADDRESS 
.•PRINT RAN/PACKET DATA 



.S8TTL RANEKP - PRINT RAH EXPD/RECV DATA 

PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
INPUTS: 

R1 RECEIVED DATA 
R2 EXPECTED DATA 
R4 CONTROLLER RAN ADDRESS 



042701 
042702 
004737 
004737 



104423 



177400 
177400 
007606 
007462 



8GNNSG RAHEXP 



L10023: 



SIC 
SIC 
JSR 
JSR 

ENDNSG 



fC<377>.R1 
fC<377>.R2 
PCPRIRAH 
PC.PR'XOR 



.-SAVE EXPD RAH DATA BYTE 
:SAVE EXPD RAH DATA BYTE 
.•PRINT THE RAH ADDRESS 
: PRINT THE DATA 



TRAP CtNSG 



.SBTTL TINEXP - PRINT TINER A.B AND EXP/REC 



PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
AND TINER A.B HEADER MESSAGE 



INPUTS: 



R1 RECEIVED DATA 
R2 EXPECTED DATA 



CZTUXAO TUBO FRONT END PRT B MACRO HI 200 
TINCXP - PRINT TINER A,B AND EXP/REC 



K 6 
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SEQ 75 



2927 
2928 

2929 016406 
016406 

2930 016406 
016406 
016412 
016416 
016420 
016422 

2931 016426 

2932 016432 
016432 
016432 

2933 
2934 

293$ 016434 
2936 



TINEXP:: 



B6NHSG TIHEXP 



012746 016434 

012746 000001 
010600 
10441$ 

062706 000004 

004737 007462 



PRINTX ffTInSGO 
NOV fTINSGO,-(SP> 
#1.-(SP) 
SP,RO 
CSPNTX 
f4,SP 
PC.PRlXOfi 



: PRINT HEADER 



104423 



045 



LI 0024: 



NOV 
NOV 
TRAP 
ADD 
JSR 

ENDNSG 



: PRINT THE DATA 



TRAP CMS6 



116 



04S TinSGO: .ASCIZ *XNXA TIHER A STATUS IS IN BIT 3INXA TINER B STATUS IS IN BIT 2' 
.EVEN 



L 6 



CZTUXAO TU80 FROM! END PRT B KACRO HI 200 29-nAR-8S 13:32 
BAOSSR - PRINT TSSR ERRORS ON DATA TRANSFERS 



PACE 48 



SEO 76 



2938 
2939 
2940 
2941 
2942 
2945 
2944 
294S 
2946 
2947 
2948 
2949 
29S0 

2951 016534 
016534 

2952 016534 

2953 016536 

2954 016542 
016542 
016544 
016550 
016554 
016556 
016560 

2955 016564 

2956 016566 

2957 016572 
016572 
016572 

2958 016574 



010246 
042702 

010246 
012746 
012746 
010600 
104414 
062706 
012602 
004737 



104423 
045 



.SBTTL BAOSSR - PRINT TSSR ERRORS ON DATA TRANSFERS 

♦ 

PRINT ROUTINE FOR iSSR ERRORS ON DATA TRANSFERS 
INPUTS: 

R1 CONTENTS OF TSSR 

R2 DATA WRITTEN (8 BITS) 



BADSSR:: 



B6NNS6 BADSSR 



177400 



016574 
000002 



000006 
005264 

116 



L10025: 
0"; XFERASC: 



NOV 
BIC 

PRINTB 

NOV 

NOV 

NOV 

NOV 

TRAP 

ADD 

NOV 

JSR 

ENDNS6 
TRAP 



R2.-(SP) 

#1 77400. R2 

fXFERASC.R2 

R2.-(SP) 

fXFERASC.-(SP) 

f2.-(SP) 

SP.RO 

CtPNTB 

f6.SP 

(SP)«.R2 

PC.PRITSSR 



.•SAVE DATA TRANSFERRED 
;6ET JUST ONE BYTE 



; RESTORE R2 

; DECODE TSSR CONTENTS 



CSNS6 
.ASCIZ 



'ZNXA Data Transferred - 103* 



H 6 



CZTUXAO 1U80 FRONT END PRT B HACRO H1200 
SOFINIT > SOFT INITIALIZE OF CONTROLLER 

2960 
2%1 
2962 
2963 
296A 
2965 
2966 
2967 
2968 
2969 
2970 
2971 
2972 
2973 
2974 
2975 
2976 
2977 
2978 
2979 
2980 
2981 
2982 
2983 
2984 
2985 
2986 
2987 

2988 016630 

2989 016630 

2990 016634 

2991 016642 

2992 016646 

2993 016652 

2994 016654 

2995 016660 

2996 016664 

2997 016666 

2998 016670 

2999 016672 

3000 016674 

3001 016676 
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.SBTTL SOFINIT - SOFT INITIALIZE OF CONTROLLER 



ROUTINE TO 00 A %0f1 INITIALIZE OF THE CONTROLLER 
BY WRITING INTO THE TSSR REGISTER. AFTER THE INIT, 
THE TSSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS 
DETECTED SHOULD BE TREATED AS DEVICE FATAL ERRORS. 



SEQ 77 



INPUTS: 



R5 ADDRESS OF FIRST REGISTER 



OUTPUTS: 



RO CONTENTS OF TSSR. IF ERROR 
CARRY SET IF INIT WAS OKAY 
CLEAR IF FATAL ERROR 



CALLING SEQUENCE: 



NOV 
JSR 
BCS 
ERRDF 



«ADDRESS.R5 
PC. SOFINIT 
CONTINUE 



012765 000000 000000 
004737 017104 
016500 000000 
010004 

042704 176277 

052704 002200 

020400 

001402 

000241 

000401 

000261 

000207 



SOFINIT:: 

SAVREG 

my 

JSR 
NOV 

mv 

BIC 
BIS 
CNP 
BEQ 
CLC 
BR 

SS: SEC 
10S: RTS 



fO.TSSR(R5> 
PC.UAITF 
TSSR(RS).RO 
R0.R4 



: REPORT FATAL ERROR 



: SAVE THE REGISTERS 
: DO THE INIT. 



WAIT FOR SSR 
;GET THE TSSR REGISTER 
:TSSR CONTENTS 
rC<HIA0DR!OFL>,R4 
«SSR!NBA.R4 :R4 HAS EXPECTED CONTENTS 
R4.R0 :ONLY EXPECTED BITS SET ? 

5$ .-BRANCH IF OKAY 

.•CLEAR THE CARRY FOR ERROR 
10$ :G0 TO EXIT 

:SET THE CARRY BIT 
PC : RETURN TO CALLER 



N 6 



01000A 
032700 
001004 
032700 
001023 
000424 
032700 
001011 
032700 
001414 
042704 
020427 
001007 
000410 
032700 
001405 
032700 
001002 
000241 
000401 
000261 
000207 



100000 
174077 

000200 

000040 

177761 
000016 

000040 
000006 



CZTUXAO TU80 FRONT END PRT B MACRO HI 200 
CHKAHB - CHECK TSSR FOR AMBIGUITY 



3003 

3004 

3005 

3006 

3007 

3008 

3009 

3010 

3011 

3012 

3013 

3014 

3015 

3016 

3017 

3018 

3019 

3020 

3021 

3022 

3023 016700 

3024 016700 

3025 016704 

3026 016706 

3027 016712 

3028 016714 

3029 016720 

3030 016722 

3031 016724 

3032 016730 

3033 016732 

3034 016736 

3035 016740 

3036 016744 

3037 016750 

3038 016752 

3039 016754 

3040 016760 

3041 016762 

3042 016766 

3043 016770 

3044 016772 

3045 016774 

3046 016776 
3047 
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.SET ' CHKANB - CHECK TSSR FOR AMBIGUITY 



THIS ROUTINE TESTS THE CONTENTS OF THE TSSR REGISTER 
FOR AMBIGUITY 



INPUT: 



RO CONTENTS OF TSSR 



OUTPUT: 



RO 



CHKAMB: 



5S: 



10S: 



40S: 

45S: 
50S: 



SAVREG 

MOV 

BIT 

BNE 

BIT 

BNE 

BR 

BIT 

BNE 

BIT 

BEQ 

BIC 

CMP 

BNE 

BR 

BIT 

BEQ 

BIT 

BNE 

CLC 

BR 

SEC 

RTS 



CONTENTS OF TSSR 



CARRY SET - NO AMBIGUITY 

CLR - AMBIGUOUS CONTENTS 



R0*R4 

fSCRO 

5S 

«*C<NBA!OFL!SSR 

40$ 

45S 

fSSR.RO 
10S 

#BITS,R0 
40$ 

#*CTERCLS,R4 

R4,#16 

40$ 

45$ 

ffBIT5«R0 
45$ 

«BIT2!BITnR0 
45$ 

50$ 

PC 



.-SAVE THE GENERAL REGISTERS 
; CONTENTS OF TSSR 
;IS BIT 15 SET ? 
;BRANCH IF YES 

!HIADDR>.RO .-ANY OTHER BITS SET 
MUST BE AN ERROR 
RETURN WITH SUCCESS 
IS READY BIT SET ? 
BRANCH IF READY BIT IS SET. 
IS FATAL ERROR BIT SET ? 
ERROR IF NOT 

CLEAR ALL BUT TERMINATION CODE 
ALL THREE BITS MUST BE SET 
ERROR IF NOT SET 
OK IF ALL ARE SET 
IS FATAL ERROR BIT SET ? 
ERROR IF BIT IS SET WITH SSR 
IS THIS A FUNCTION REJECT 
BR, IF TSSR IS OK 
AMBIGUOUS CONTENTS 

.-SHOW SUCCESS - NO AMBIGUITY 
; RETURN TO CALLER 



B 7 



CZTUXAO TU80 FRONT END PRT B HACRO R1200 
ENAINT.DSBINT - ENABLE/DISABLE INTERRUPTS 



3049 
3050 
3051 
3052 
3053 
3054 
3055 
3056 
3057 
3058 
3059 
3060 
3061 

3062 017000 
3063 

3064 017001 

3065 

3066 

3067 017002 
3068 

3069 017004 

3070 

3071 

3072 017006 

3073 017010 

3074 017014 

3075 017020 

3076 017024 

3077 017026 

3078 017030 

3079 017036 
3080 

3081 

3082 017040 

3083 017042 

3084 01 7050 
3085 



000200 
000001 



000 
000 

000000 
000000 



010046 

013700 002156 
012720 017052 
012720 000340 
012600 
011646 

012766 000000 000002 
000002 



011646 

012766 000340 000002 
0C0002 
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.SBTTL ENAINT.OSBiNT - ENABLE /DISABLE INTERRUPTS 



SEQ 79 



DEFAULT DISPLAY INTERRUPT HANDLERS. 

IF DISPLAY TINE-OUT, REPORT DEV FATAL, AND ABORT PASS. 

OTHERWISE. SAVE DfU REGISTERS AND DISMISS. 



BIT DEFINITIONS FOR "INTRASK" AND "JNTFLAG" BYTES: 



I0KCKINSBIT7 
lOKSTPsBITO 



DON*T CHECK FOR BAD INTERRUPTS — TEST VILL. 
EXPECT "STOP" INTERRUPT. 



; INTERRUPT MASK — SAYS EXPECTING INTERRUPTS 
INTNASK: .BYTE 0 

; INTERRUPT FLAG — SAYS UE GOT ONE (IF POSITIVE) 
INTFLAG: .BYTE 0 

.-SAVED INTERRUPT VECTOR: 
INTVEC: .WORD 0 
;SAVE CPU PC 
INTCPC: .WORD 0 

.SUBROUTINE TO ENABLE INTERRUPTS: 
ENAINT: NOV RO.-(SP) ;SAVE RO 

IVEC.RO 
fINTR,(RO)^ 
fPRI07.(R0)« 
(SP)^.RO 
(SP)«-(SP) 
«0.2(SP) 



NOV 

NOV 
NOV 
NOV 

mv 

NOV 
RTI 



;GET POINTER TO VECTORS 
:SET UP INTERRUPT VECTOR 



.•RESTORE RO 
;SET CPU TO LEVEL 0 



.SUBROUTINE TO DISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 7) 
DSBINT: NOV (SP).-(SP} 

my «PRI07.2(SP) 

RTI 



C 7 



CZTUXAO TU80 FRONT END PRT B 
INTR - INTERRUPT HANDLERS 
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SEQ 80 



3087 
3088 
3089 

3090 
3091 
3092 
3093 
3094 
309S 
3096 
5097 
3098 



3099 
3100 



.SBTTL INTR - INTERRUPT HANDLERS 



017052 
017052 

017052 012737 000001 002172 

017060 105037 017001 

017064 132737 000001 017000 

017072 001003 

017074 152737 000001 017001 



017102 
017102 
017102 

017102 000002 



INTR:; 



B6NSRV INTR 



.•DEFINE INTERRUPT ENTRY 



NOV fl.iiilTRECV ;SET FLAG TO SNOW INTERRUPT RECEIVED 

CLRB INTFLAG .'CLEAR FLAG TO SAY UE GOT INTERRUPT 

BITB flOKSTP.INTHASK .'EXPECTING STOP INTERRUPT? 

BNE U :BR IF YES 

BISB flOKSTP. INTFLAG ;N0. SET THE ERROR FLAG. 

.'SAVE REGISTERS. MSG BUFFER. ETC. 
IS: 

ENOSRV 

Li 0026: 

RTI 



0 7 



CZTUXAO TU80 FRONT END PRT B HACRO N1200 
WAITF - WAIT FOR SUBSVSTEN READY 



29-nAR-83 13:32 PAGE S3 



SEO 81 



3102 
3103 
3104 
310S 
3106 
3107 
3108 
3109 
3110 
3111 
3112 
3113 
31 U 
3115 

3116 017104 
017104 

3117 017106 

3118 017112 
017112 
017116 
017120 
017124 
017126 
017132 
017134 
017140 

3119 017142 

3120 017146 
3121 

3122 017150 

3123 017152 
017152 
017156 
017160 
017164 
017166 
017172 
017174 
017200 

3124 017202 

3125 017204 

3126 017206 

3127 017210 

3128 017212 

3129 017214 

3130 017216 



104422 
012746 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
016500 
105700 

100420 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005316 
001356 
000241 
000401 
000261 
005326 
000207 



010000 
000001 
002116 
177772 
177756 
000000 

000001 
002116 
177772 
177756 



.SfeTTL UAITF - WAIT FOR SUBSVSTER READY 
SUBROUTINE TO WAIT FOR THE SUBSYSTEM READY FLAG 
INPUTS: 

ADDRESS OF FIRST I/EVICE REGISTER 



R5 

OUTPUTS: 



RO 

CARRY 



WAITF:: BREAK 
TRAP 
NOV 
DELAY 
NOV 
.WORD 
NOV 
.WORD 
DEC 
BNE 
DEC 
BNE 

21: NOV 
TSTB 

BNl 

'«LAY 

NOV 

.WORD 

NOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

DEC 

CLC 
BR 

3t: SEC 
4S: DEC 
RTS 



CONTENTS OF LAST TSSR READ 

SET - READY BIT SET 

CLR - TIHEOUT WAITING FOR READY 



CSBRK 

«10000.-(SP> 
1 

fl.CPO* 
0 

LSDLY.(PC)* 
0 

-6(PC) 
.-4 

-22 (PC) 
.-20 

TSSR(R5).R0 
RO 

3$ 

1 

#1.<PC)* 
0 

L»DLY.(PC)* 
0 

-6(PC) 
.-4 

-22 (PC) 
.-20 
(SP> 
2$ 

4$ 

(SP)* 
PC 



; DO A SUPVSR BREAK FIRST. 

;BIG NSEC TINER 
.-DELAY 100US 



:READ THE iSSR REGISTER 
;TEST FOR READY BIT SET 

; mJ ON STOP FLAG. 
: WAIT 100 USEC 



REDUCE DELAY COUNT 

RETRY UNTIL TINER EXPIRES 

C » 0, CONTROLLER STILL RUNNING... 
...OR HUNG-UP AFTER 300 NSEC. 

C s 1, CONTROLLER IS STOPPED. 
RESTORE STACK WITHOUT CHANGING CARRY BIT 



CZTUXAO TUSO FRONT END PRT B 
CHKTSSR - CHECK TSSR FOR READY 



3132 
5153 
3154 
3135 
3156 
5157 

51 5e 

5159 
5U0 
5U1 
5U2 
5145 
5144 
5145 
3146 
3147 
3148 
3149 
5150 

5151 017220 

5152 017220 
3155 017224 

5154 017226 

5155 017252 

5156 017254 

5157 017240 

3158 017242 

3159 017246 

3160 017250 

3161 017252 

3162 017254 
5163 017256 
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SEQ 82 



004737 017104 
103014 

004737 016700 
103006 

052700 100000 
001405 

032700 074000 

001402 

000241 

000401 

000261 

000207 



.S8TTL CHKTSSR - CHECK TSSR FOR READY 



THIS ROUTINE UAITS fOR READY IN THE TSSR 
AND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR. 



INPUT: 



R5 



OUTPUT: 



CHKTSSR: 



10S: 

15S: 
20S: 



ADDRESS OF CSR REGISTERS 



RO CONTENTS OF TSSR 
CARRY SET - OKAY 

CLR - NOT READY APBI6U0US. OR SC SET 



JSR PC.UAITF :UAIT FOR READY 

BCC 20S :BRANCH IF TINE OUT 

JSR PC.CMKANB :TSSR AMBIGOUS? 

BCC 10S ;BR IF YES 

BIT fSC.RO .'SPECIAL CONDITION SET? 

BEQ 15S ;BR IF NO 

BIT ff<SCE!BIE!RNR!NXN>.RO .ANY ERROR BITS SET? 

BEQ 1SS :BR IF NO 

CLC ;SET FAILURE 

BR 20S 

SEC ;SET SUCCESS 

RTS PC ; RE TURN TO CALLER 



f 7 



C2TUXA0 TU80 FRONT END PRT B fM^CRO 111200 
XNXM - CHECK FOR NONEXISTENT MEMORY 



31 6S 
3166 
3167 
3166 
3169 
3170 
3171 
3172 
3175 
317* 
3175 

3176 017260 

3177 017266 

3178 01727* 

3179 017276 
3180 

3181 017300 

3182 017302 

3183 017304 

3184 017310 
31 83 

3186 017312 

3187 0173U 

3188 017320 

3189 017322 
017322 
017326 

3190 017330 

3191 017332 

3192 017334 

3193 017336 
3194 

3195 
3196 
3197 
3198 
3199 
3200 
3201 
3202 
3203 
3204 
3205 

3206 017340 

3207 017340 

3208 017344 

3209 017346 

3210 017352 

3211 017354 

3212 017360 

3213 017362 
32U 017364 
5?15 017366 
5216 017370 
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.SBTTL XNXN - CHECK FOR NONEXISTENT MEMORY 



S£0 83 



ROUTINE TO TEST FOR A NEXM IN THE RAN6E (R1> THRU (R2). 
ON RETURN. IF "<"' « 1, (R1) x nEXM APDRESS. 

"C" * 0. ALL ADDRESSES OK. 









;CALL: 


MOV ADR1.R1 










• 


MOV ADR2.R2 










• 


JSR PC.NXM 










* 


RETURN 




«IC«I l> mnv rnUVCCV* 


01 2757 


01 7512 


000004 

WWW" 


ifNXM* 


MOV 


f2»»if4 




012757 


000200 


000006 
www 




flOV 


fPRI04,8*6 




005005 








CLR 


RS 


'FLAG. 


005711 






1i: 


TST 


(R1) 


•TEST'thE ADDRFSS(ES) 














•IF ANY TRAP CONTINUE AT 2t 


020102 








CMP 


Ri.R2 


;OTHERUISE. CONTINUE HERE. 


001407 








BEO 


3$ 


:BR IF FINISHED (NO NEXM'S>. 


062701 


000002 






ADD 


02. R1 


:SET NEXT ADDRESS... 


000772 








DN 


1 V 


AND CONTINUE. 


005103 






28: 


COM 


R3 


;60T ONE. SET FLAG... 


012716 


017322 






MOV 


f3$.(SP) 


000002 








RTI 


:...AND DISMISS INTERRUPT... 








3$: 


CLRVEC 


#4 


.-...AND GIVE BACK THE VECTOR. 


012700 


000004 






MOV 


f4.R0 




104436 








TRAP 


CtCVEC 




005703 








TST 


R3 


:DID UE CATCH ONE ?? 


001401 








BEQ 


.♦4 


;N0. "C" « 0. SKIP NEXT. 


000261 








SEC 




;VES. "C" * 1. (R1) « NEXM ADI 


000207 








RTS 


PC 










.SBTTL 


TSTLOOP - CHECK 


ITERATION COUNT 



SUBROUTINE TO EXECUTE TEST ITERATIONS. 

EXIT WITH "C" SET If LOOPS ALLOWED AND LOOP COUNT NON-ZERO. 
LOOP COUNTER IS SET BY 'BEGIN.TEST" MACRO. 



CALL: LOOPTO ARG 
TSTLOOP:: 



005737 


002136 




TST 


NOITS 


001006 






BNE 


It 


005737 


002152 




TST 


QVP 


100403 






BMI 


It 


005337 


002164 




DEC 


LOOPCNT 


001002 






BNE 


2t 


000241 




1$: 


CLC 




000401 






BR 


3t 


000261 




2S: 


SEC 




000207 




It: 


RTS 


PC 



; ITERATIONS INHIBITED? 
; YES. 
* NO. 

•LOOPS DISALLOWED IN QUICK PASS. 
: BUMP LOOP COUNTER. 

;LOOP DISALLOWED. OR DONE. 

.•LOOP ENABLED. 
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CZIUXAO TU80 FftOMT (ND PR! B MACRO NIZOO 
TSTLQQP - CHECK ITERATION COUNT 



3218 

3219 

3220 

3221 

3222 

3223 

322<> 

322S 

3226 

3227 

3228 

3229 

3230 

3231 

3232 

3233 

3234 

3235 

3236 

3237 

3238 

3239 

3240 

3241 

3242 

3243 

3244 

3245 

3246 017572 

3247 017572 

5248 017574 

5249 017400 

5250 017404 

5251 017410 

5252 017414 
5255 017420 

5254 017422 

5255 017426 

5256 017450 

5257 017452 

5258 017440 
017440 
017442 
017444 
017446 

3259 017450 

3260 017452 
5261 017460 

017460 
017462 
017464 
017466 
3262 017470 
3265 017476 
017476 
017502 
5264 017504 
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.SBTTL TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS 



SEQ 84 



PRINT THE NUMBER AND NAME OF EACH TEST AS VE 60 AL0N6. 
INCREMENT "TESTK" TO INDICATE THE NUMBER OF TESTS 
IN THE CURRENT RUN SEQUENCE. 

CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS. 



INPUT: 



RO 



POINTER TO TEST IP ASCIZ STRING 



OUTPUT: 



RS 



ADDRESS OF FIRST DEVICE REGISTER 

IMPLICIT OUTPUTS: 

TSTCNT UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART 

SIDE EFFECTS: 

INTERRUPT LEVEL IS RASIED TO LEVEL OF 
THE DEVICE UNDER TEST 



010046 
005057 
005057 
005057 
105057 
015700 
006500 
005757 
001450 
100010 
052760 

104455 
000001 
005656 
005176 
000407 
052760 

104455 
000002 
004255 
000000 
012757 

015700 
104451 



005106 
017640 
005252 
017000 
002150 

005062 



160000 005150 



160001 003130 58: 



177777 003060 
0021 SO 



TSTSETUP:: 
MOV 
CLR 
CLR 
CLR 
CLRB 
MOV 
ASL 
TST 
BEQ 
BPL 
BIS 
ERRDF 
TRAP 
.WORD 
•WORD 
.UORD 
BR 
BIS 
ERRDF 
TRAP 
.WORD 
.yORD 
.WORD 
MOV 
DODU 
NOV 
TRAP 

.JSSSJL 



21: 



RO*-(SP) .SAVE THE TEST ID MESSAGE 

SIFLAG : CLEAR "SOFT INIT" FLAG 

ERRK ; CLEAR LOCAL ERROR COUNTER. 

EXTA : CLEAR ERROR EXTENSION FLAG. 

INTNASK : CLEAR INTERRUPT MASK (CHECK ERROR) 

UNITN.RO : GET THE UNiT NUMBER. 

RO ; ... AND MAKE IT A WORD OFFSET. 

NODEV : DID STARTUP FIND THE DEVICE? 

4$ : BR IF YES 

5t ; BR IF NOT IDLE 

f160000«ERTABL(R0) : FLAG ERROR IN THE ERROR TABLE 

1. NXR.NXRERR ; NO DEVICE HERE — PRINT IT 
CKRDF 

1 

NXR 

NXRERR 

2$ 

#160001 .ERTABL(RO) : FLAG ERROR IN THE ERROR TABLE 

2. N0INIT ; DEVICE NOT IDLE 
CSERDF 

2 

NOINIT 
0 

f-I.DUFLG : DROP THE UNIT 

UNITN 

UNITN.RO 

CSOOOU 

: ABORT THt PASS 
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TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS 



4t: 



H 7 
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SEQ 8S 



017S04 


yflLLLL 




017S06 


06C423 




3266 




3267 017S10 

•rib w ■ V • • *r • w 






017510 


104421 




3268 017S12 


032700 


001000 


3269 017S16 


001412 




3270 017520 


011600 




3271 01^522 






017522 


010046 




017524 


012746 


017566 


017530 


012746 


000002 


017534 


010600 


017536 


104417 




017540 


062706 


000006 

WWW 


3272 017544 


005237 


002152 


3273 017550 




017550 


013700 


002160 


017554 


104441 


3274 017556 


005726 




3275 017560 


013705 


002154 


3276 017564 


000207 




3277 017566 


045 


123 


3278 





IS: 

58: 
045 TNAM: 



TRAP 


CSDCLN 


OD 




Ml A£€ 

hf LAoS 




TRAF 


tSR^LA 


Ot T 

BJ T 


ilBUT BA 


BCU 


1» 




/CD% BA 




BTUAM BA 

VTNAM«R0 




BA _#CB% 


■flu 


BTklAM _/CB\ 

•INAM«*\5P> 






■nu 


CD BA 


TOAD 


rCDiiTC 

L«rN If 




HA CD 


IMC 


TCTruT 






NOV 


IPRI.RO 


TRAP 


CSSPRI 


TST 


(SP)* 


MOV 


CSRADDR.R5 


RTS 


PC 


.ASCI2 


•ISITIA Tt$f 


.EVEN 





; SET THE OPERATOR FLAGS. 

: PRINT THE TEST NUMBERS? 
: BR IF NO 
:GET THE ID MESSAGE 
;DISPLAV THE TEST ID 



; BUMP TEST COUNTER. 
:PR10RITV THAT OF DEVICE 



:FIX UP THE STACK 

: ADDRESS OF TSV REGISTERS ON UNIBUS 
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CZTUXAO TUSO FRONT END PRT B NACRO N1200 
TSTENO - PRINT ERRORS RECEIVED 



32S0 
3281 
3282 
3283 
3284 

3285 017602 
017602 

3286 017604 

3287 017610 

3288 017612 
017612 
017616 
017622 
017626 
017630 
017632 

3289 017636 
3290 

3291 017640 

3292 017642 

3293 017661 
3294 

3295 
3296 
3297 
3298 
3299 

3300 017726 

3301 017732 

3302 017734 

3303 017740 

3304 017742 

3305 017746 

3306 017750 

3307 017754 

3308 017756 

3309 017760 

3310 017762 
3311 

3312 017764 

3313 017766 

3314 017772 

3315 017774 

3316 020000 

3317 020004 

3318 020010 

3319 020012 

3320 020020 

3321 020022 
020022 

3322 020024 

3323 020030 

3324 020032 

3325 020040 
020040 
020042 
020044 



104421 
030027 
001412 

013746 
012746 
012746 
010600 
104417 
062706 
000207 

000000 
045 
105 



005237 
010046 
013700 
006300 
062700 
005210 
032710 
001001 
005310 
012600 
000207 

010046 
013700 
006300 
016000 
042700 
020037 
103004 
023737 
103417 

104421 
032700 
001013 
012737 

104455 
000004 
017661 
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.SBTTL TSTEND - PRINT ERRORS RECEIVED 



SEQ 66 



AT END OF EACH TEST, PRINT THE NUMBER OF ERRORS RECEIVED 
IF NORMAL ERROR REPORTING IS DISABLED (FLAzIER). 



STEND: 



020000 



017640 
017642 
000002 



000006 



101 
122 



It: 



RFLAGS 

TRAP 

BIT 

BEQ 

PRINTF 

NOV 

NOV 

NOV 

NOV 

TRAP 

ADD 

RTS 



; BR IF "lER" NOT SET, 
; PRINT ERROR COUNT. 



040 
122 



ERRK: 0 
ESUM: .ASCIZ 
ENAXDU: .ASCIZ 
.EVEN 



RO 

CSRFLA 

RO.#IER 

IS 

fESUN.ERRK 

ERRK,-(SP) 

fESUN.-(SP) 

f2,-(SP) 

SP^RO 

CSPNTF 

f6.SP 

PC 



: LOCAL ERROR COUNT. 

/ZA XDSA ERRORS/ 

/ERROR LIMIT REACHED — DROPPING UNIT/ 



;♦ 



.SBTTL INCERK - INCREMENT LOCAL ERROR COUNT 



; ROUTINES TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR LINIT: 



017640 
002150 
003130 
007777 



INCERK: INC 
MOV 
MOV 
ASL 
ADD 
INC 
BIT 
BNE 
DEC 
NOV 
RTS 



IS: 



ERRK 
RO.-(SP) 
UNITN.RO 
RO 

fERTABL.RO 

(RO) 

#7777, (R0> 
1$ 

(RO) 

(SP)».RO 
PC 



002150 

003130 
170000 
002142 

017640 002140 

000040 

177777 003060 



U: 



NOV 


RO.-(SP) 


MOV 


UNITN.RO 


ASL 


RO 


MOV 


ERTABL(RO).RO 


BIC 


f170000.R0 


CMP 


R0.6ERRNA)( 


BNIS 


1$ 


CMP 


ERRK.LERRNAX 


BLO 


2S 


RFLAGS 


RO 


TRAP 


CSRFLA 


BIT 


fIDU.RO 


BNE 


2S 


MOV 


f-1,DUFLG 


ERRDF 


4. ENAXDU 


TRAP 


CSERDF 


.WORD 


4 


.VORD 


EMAXDU 



INCREMENT LOCAL ERROR COUNT 
SAVE RO 

GET UNIT NUNBER, 

... AND MAKE IT A WORD OFFSET. 

ROGETS ADDRESS OF ERROR TABLE ENTRY. 

IMREMENT THE DEVICE ERROR COUNT 

DID WE OVERFLOW THE FIELD? 

BR IF NO. 

YES — BACK IT UP TO 7777. 
RESTORE RO 
RETURN TO CALLER. 

SAVE RO 

GET UNIT NUMBER 

... AND MAKE IT A WORD OFFSET 

GET ERROR TABLE ENTRY 

EXTRACT ERROR COUNT FIELD 

IS GLOBAL LIMIT EXCEEDED FOR THIS UNIT? 

BR IF YES 

IS LOCAL LIMIT EXCEEDED FOR THIS TEST? 
BR IF NO 

GET OPERATOR FLAGS 

IS DPOPPING INHIBITED? 

BR IF YES. 

NO — DROP THE UNIT 



CZTUXAO TUaO FRONT END PRT B MACRO HI 200 
INCERK - INCREMENT LOCAL ERROR COUNT 
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SEQ 87 



020046 

3326 020050 
020050 
020054 

3327 020056 
020056 

3328 020060 

3329 020062 
3330 

3331 
3332 
3333 
3334 
3335 
3336 

3337 020064 

3338 020064 

3339 020070 

3340 020074 
SS41 020076 
5342 020104 
5545 020110 

5544 020116 

5545 020120 
020120 

3346 020122 

5547 020126 

5548 020150 

5549 020154 
5350 

5551 
5552 



000000 

013700 002150 
104451 

104444 
012600 
000207 



2S: 



FATCHK: 



015701 002150 
006501 

062761 000001 003150 

00S257 002170 

025727 002170 000051 
002406 

104421 

052700 040000 
001002 

004757 020156 
000207 



9$: 



.WORD 

DODU 

NOV 

TRAP 

DOCLN 

TRAP 

NOV 

RTS 

.S8TTL 



0 

UNITN 

UN1TN,R0 

C«D0DU 

CSDCLN 
(SP)*.RO 
PC 



RESTORE RO 
RETURN TO CALLER 



FATCHK - INC FATAL ERRORS AND CHECK FOR LINIT 



CHECK FATAL COUNTER, AFTER INC. FOR MORE THAN 25 
ERRORS AND IF OVER CALL UNIT DROP ROUTINE 



SAVRE6 




;BETTER SAVE THE REGISTERS 


NOV 


UNITN.RI 


;PICK UP THE UNIT NUMBER 


ASL 


R1 


:NAKE IT INTO A BYTE OFFSET 


ADD 


fl.ERTABL(RI) 


.-ADD 1 TO THE PROPER UNIT'S ERROR COUNTER 


INC 


FATFLG 


:BUF1P FATAL ERROR COUNTER 


CNP 


FATFL6.«25. 


: CHECK AGAINST 25 


BLT 


9S 


:BR. IF LESS THAN 25 ERRORS 


RFLA6S 


RO 


;READ THE FLAGS INTO RO 


TRAP 


CtRFLA 


BIT 


fBITU.RO 


:BR. IF LOOP ON ERROR IS SET 


BNE 

JSR 


9S 


;OTHERWISE NEVER BE ABLE TO SCOPE ETC. 


PCCKDROP 


;DROP UNIT IF ALLOWED 


RTS 


PC 


:RETURN ETC. 
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CZTUXAO TUM FRONT END PRT B MACRO N1200 
CKOROP - CHECK IF UNIT SHOULD BE DROPPED 



3354 
3355 
3356 
3357 

3358 020136 

3359 020U0 

3360 020150 
020150 

3361 020152 

3362 020156 
3563 020160 

3364 020162 
3565 020170 

020170 
020174 

3366 020176 
020176 

3367 0202C0 

3365 020202 
3369 

3370 
3371 
3372 
3373 
3374 
3375 
3376 

3377 020204 

3378 020204 

3379 020210 
3380 

3381 
3382 
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.S8TTL CKDROP - CHECK IF UNIT SHOULD BE DROPPED 



010046 



104421 

032700 000040 

001010 

011600 

012737 177777 

013700 002150 
104451 

104444 
012600 
000207 



CHECK IF UNIT SHOULD BE DROPPED 



003060 



CKDROP: NOV RO,-<SP) 

FOftCERROR U^NOTSSR 
RfLAGS RO 

CSRFLA 
fIDU.RO 
It 

(SP),RO 
f-1 ,DUFL6 
UNITN 
UNITN RO 
CSDOrj 



It: 



TRAP 
BIT 
BNE 
NOV 
NOV 
OODU 
NOV 
TRAP 
DOCLN 
TRAP 
NOV 
RTS 



CtDCLN 

(SP)«,RO 

PC 



.•ABORT THE PASS 



00^ 

000207 



016630 



.SBTTL CONFIG - DETERNINE CONFIGURATION OF SYSTEN 
SUBROUTINE - DETERNINE CONFIGURATION OF TU80 SYSTEN. 
CONFIG: 



JSR 
RTS 



PC«SOFINIT 
PC 
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KTON.KTOFF - ENABLE/DISABLE NENORV IMNA6EHENT 



SEQ 89 



3384 




3385 




3386 




3387 




3388 020212 


005737 


3389 020216 


001403 


3390 020220 


012737 


3391 020226 


000207 


3392 




3393 




3394 




3395 




3396 




3397 




3398 020230 


005737 


3399 020234 


001405 


3400 020236 


000240 


3401 020240 


000240 


3402 020242 


012737 


3403 020250 


000207 


3404 




3405 





.S87TL KTON.KTOFF • ENABLE /DISABLE HENORr HANAGENENT 

; SUBROUTINE - ENABLE NEN NGT. 



KTON: 



IS: 



T$T 
BEQ 
HOV 
RTS 



KTOFF: TST 
BEQ 
NOP 
NOP 
NOV 

U: RTS 



KTFlG 
IS 

#1 .SRO 
PC 



GOT 
NO. 

YES. ENABLE KT11. 



SUBROUTINE - DISABLE HEN N6T. 



KTFLG 
IS 



fO.SRO 
PC 



GOT KT11? 
NO. 



; DISABLE KT. 



CZTUXAO TU80 FRONT END PRT B 
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H 7 
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SEQ 90 



3A07 






3408 






3409 






3410 






3411 






3412 






3413 






3414 






3415 






5416 






3417 






3418 






3419 






3420 






3421 






3422 






3423 






3424 






342S 






3426 020252 






3427 0202S2 






3428 0202S6 


005737 


003100 


3429 020262 


001433 




3430 020264 


010102 




3431 


000006 




3432 






3433 






3434 






3435 020316 


042701 


000177 


3436 020322 


020137 


003100 


3437 020326 


103011 




3438 020330 


010137 


172354 


3439 020334 


042702 


160000 


3440 020340 


062702 


140000 


3441 020344 


010200 




3442 020346 


000261 




3443 020350 


000401 




3444 020352 


000241 




3445 020354 


000207 




3446 







.SBTTL SETNAP - SETUP PAR6 NAPPING 



THIS ROUTINE SETS UP KERNEL PAR6 TP HANDLE 
AN 18 BIT ADDRESS. THE OFFSET INTO THE PAGE 
IS RETURNED BIASED TO PAR6. 



INPUTS: 



RO HIGH ORDER ADDRESS BITS 
R1 LOU ORDER ADDRESS BITS 



OUTPUTS: 



RO OFFSET INTO BLOCK WITH PAR6 BIAS (I.E. THE ADDRESS) 
CARRY SET IF SUCCESS 
CLR IF ERROR 



SETNAP: 



10$: 
158: 



SAVREG 




:SAVE R1-R4 UNTIL NEXT RETURN 


TST 


KTFL6 


;SYSTEN HAVE ABOVE 28K? 


BEO 


10$ 


*BR IF NO 


NOV 


R1.R2 


•SAVE LOU ORDER BITS 


.REPT 


6 


ASR 


RO 


: CONVERT UORD ADDRESS TO 32U BLOCKS 


ROR 


R1 


;NAKE IT DOUBLE PRECISION 


.ENDR 




Bit 


f177.R1 


: ALINE FOR LOWER 4K BOUNDARY 


CNP 


R1.KTFLG 


.•HIGHER THAN EXISTING NENORY? 


BHIS 


10$ 


•bR if yes 


NOV 


R1.afKIPAR6 


•SETUP NAPPING REGISTER PAR6 


BIC 


f160000.R2 


.'SETUP DISPLACENENT IN PAGE 


ADD 


f140000.R2 


;ADD IN PAR6 BIAS 


NOV 


R2.R0 


.•RETURN IN RO 


SEC 


.-SET SUCCESS 


BR 


15$ 


• 

•SET FAILURE 


CLC 




RTS 


PC 


.•RETURN 
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PAGE 61 



SEO 91 



344S 

3A49 

3450 

3A51 

3A52 

3A53 

3A54 

3A55 

3456 

3A57 

3458 

3459 

3460 

3461 

3462 

3463 020356 

3464 020356 

3465 020362 

3466 020366 

3467 020370 

3468 020374 

3469 020400 

3470 020402 

3471 020404 

3472 020406 

3473 020412 

3474 020414 

3475 020420 

3476 020422 
3477 

3478 
3479 
3480 
3481 

3482 020472 

3483 020476 

3484 020500 

3485 020504 

3486 020506 

3487 020512 

3488 020520 

3489 020526 

3490 020530 

3491 020534 

3492 020540 
3493 

3494 



004737 
010003 
013701 
013702 
010321 
005302 
003375 
005737 
001452 
004737 
005000 
013701 
000006 



004737 
010320 
020027 
103774 
162700 
062737 
023737 
001402 
000137 
004737 
000207 



020230 

003072 
003074 



003100 
020212 
003104 



020252 

160000 

020000 
000200 
172354 

020476 
020230 



.SBTTL FILLNEN - FILL NENORV WITH BACKGROUND PATTERN 
F*LL HENORY WITH A BACKGROUND PATTERN 
INPUTS: 

RO - BACKGROUND PATTERN 



FREE 
KTFLG 

OUTPUTS: 

NONE 



FILLHEM: 



10$: 



30$: 



172354 
003100 



50$: 
55$: 



SAVREG 

JSR 

NOV 

NOV 

NOV 

NOV 

DEC 

BGT 

TST 

BEQ 

JSR 

CLR 

NOV 

.REPT 

CLC 

ROL 

ROL 

.ENDR 

JSR 

NOV 

CNP 

BLO 

SUB 

ADD 

CNP 

BEQ 

JNP 

JSR 

RTS 



- FIRST LOCATION AVAILABLE TO DIAGNOSTIC 

- SET TO HIGHEST NENORY LOCATION IF > 28K. 



PCKTOFF 

R0,R3 

FREE.RI 

FRESIZ«R2 

R3.(R1)^ 

R2 

10$ 

KTFLG 

55$ 

PCKTON 
RO 

PST32U,R1 
6 

R1 
RO 

PC.SETNAP 
R3,(R0)^ 
R0,f160000 
30$ 

ff20000,R0 

#200,affKIPAR6 

a»KlPAR6,KTFLG 

50$ 

30$ 

PCKTOfF 
PC 



SAVE R1-R5 UNTIL NEXT RETURN 

DISABLE KT. 

COPY TEST PATTERN 

GET FIRST FREE LOCATION 

SIZE OF FREE SPACE BELOW 28K. 

STORE A BACKGROUND WORD 

DONE ALL NENORY IN FREE SPACE? 

BR IF NO 

GOT KT? 

NO. GET OUT. 

YES. ENABLE KT. 
HIGH ORDER ADDRESS START 
GET >28K START ADDRESS (IN 32U BLOCKS) 

: CLEAR C BIT 

.'CONVERT BLOCKS TO WORDS 
;HAKE IT DOUBLE PRECISION 

;SETUP PAR6 NAPPING REGISTER 

; STORE TEST PATTERN IN >28K ADDRESS 

;END OF PAR6 MAPPING AREA? 

*BR IF NO 

•BACKUP INTO PAR6 NAPPING ^^EGIN 

:POINT TO NEXT 4K BLOCK "28K. 

;END OF NENORY? 

:BR IF YES 

;KEEP GOING ON ETC. 

: DISABLE KT. 



L 



CZTUXAO 


TU80 FRONT END PRT 8 


CNPNEH 


- COMPARE HEPfORV TO BAI 


3A96 








3A97 








3A98 








3499 








3500 








3S01 








3S02 








3S03 








3504 








3505 








3506 








3507 








3506 








3509 








3510 








3511 








3512 








3513 








3514 








3515 








3516 








3517 








3518 








3519 








3520 




A1 AAAX 




3521 




0047X7 


090910 


3522 






001079 


3523 




Ait70? 


Ofllo74 


3524 


wcV30*l 


09011 1 




3525 




Vv 111! 




3526 


A9A<70 




009904 


3527 




AASA17 


009909 


3528 




010117 


0091 7A 


3529 


wCvwV*! 


All 117 


0099A0 


3530 


UCUQ 1 w 


AAAA74 




3531 


UsUQiC 


AAS791 




3532 




AA11A9 




3533 


VcUPiD 


AA11A9 




3534 


VcVOcU 


AAC717 


AOIIAA 
wUv 1 vv 


3535 


A9AA9A 
UcVOc^ 


AA1A79 




3536 


A9AA9A 
UcUPcO 


AfU717 


A9091 9 


3557 


A9AAV9 
UsVQJc 


AACAAA 




3538 


A9AAXA 
UcVQ^ 


A1 l7A1 


AA11A4 


3539 




AAAAAA 




5540 








5541 








3542 








5545 


A9flA7A 


AA97A1 


0001 77 

wW Iff 


5544 


A9AA7A 


A1A0AA 




3545 




A1A11A 




3546 


030700 


004737 


A9Q9S9 


3547 


020704 


010004 




3548 


020706 


012601 




3549 


020710 


012600 




3550 


020712 


020514 




5551 


020714 


001411 




5552 


020716 


010037 


002202 



8 8 
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(GROUND PATTERN 

.SBTTL CNPHEH - COMPARE MEMORY TO BACKGROUND PATTERN 
COMPARE MEMORY UITH A BACKGROUND PATTERN 
INPUTS: 

RO - BACKGROUND PATTERN 

FREE 8 FIRST LOCATION AVAILABLE TO DIAGNOSTIC 
KTFLG « SET TO HIGHEST MEMORY LOCATION IF > 28k. 

OUTPUTS: 



SEQ 92 



CARRY - SET IF NO ERROR 
CARRY - CLR IF ERROR 

IMPLICIT OUTPUTS: 



ERRHI 
ERRLC 
EXPD 
RECV 



- ERROR HIGH ADDRESS 

- ERROR LOU ADDRESS 

- EXPECTED DATA 

- RECEIVED DATA 



CMPMEM: 



10$: 



1SS: 



50$: 



SAVREG 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
MOV 
CLR 
MOV 
MOV 
BR 
TST 
DEC 
B6T 
TST 
BEQ 
JSR 
CLR 
MOV 
.REPT 
ROL 
ROL 
.ENDR 
BIC 
MOV 
MOV 
JSR 
MOV 
MOV 
MOV 
CMP 
BEQ 
MOV 



R0.R5 

PC.KTOFF 

FREE.RI 

FRESIZ,R2 

R3,(R1) 

15$ 

R1 .ERRLO 

ERRHI 

R3.EXPD 

(R1),RECV 

50$ 

(R1>« 

R2 

10$ 

KTFLG 

55$ 

PCKTON 
RO 

PST52U.R1 

6 

R1 

RO 

f177.R1 

RO.-(SP) 

RI.-(SP) 

PCSETMAP 

R0.R4 

(SP)*.R1 

(SF)«.R0 

R5,(R4) 

52$ 

M^ERRHI 



SAVE R1-R5 UNTIL NEXT RETURN 
COPY TEST PATTERN 
DISABLE KT. 

GET FIRST FREE LOCATION 
SIZE OF FREE SPACE BELOW 28K. 
FREE SPACE LOCATION EQUAL TO EXPD? 
BR IF YES 

SAVE ADDRESS IN ERROR 
NO HIGH ADDRESS 
SAVE EXPD FOR ERROR REPORT 
SAVE RECV FOR ERROR REPORT 

POINT TO NEXT ADDRESS 

DONE ALL MEMORY IN FREE SPACE? 

BR IF NO 

GOT KT? 

NO. GET OUT. 

YES. ENABLE KT. 
HIGh'oRDER address START 
GET >28K START ADDRESS (IN 32U BLOCKS) 

CONVERT BLOCKS TO WORDS 
MAKE IT DOUBLE PRECISION 

ALINE 4K BOUNDARY 

SAVE HIGH ORDER 

SAVE LOW ORDER 

SETUP PAR6 MAPPING REGISTER 

COPY ADDRESS BIASED TO PAR6 

RESTORE LOW ORDER IN NQN PAR6 FORMAT 

RESTORE HIGH ORDER IN NON PAR6 FORMAT 

ABOVS 28K LOCATION EQUAL EXPD? 

BR IF YES 

SAVF HIGH ORPgR IN ERROR 



rZTUXAO TU80 FRONT END PRT B MACRO Ml 200 29-nAR-8? 
CHPNFM - COMPARE MEMORY TO BACKGROUND PATTERN 



ZS51 020722 
020725 

3555 020732 

3556 020736 

3557 020740 

3558 020744 

3559 020746 

3560 020752 

3561 020756 

3562 020760 

3563 020764 

3564 020772 

3565 021000 

3566 021002 

3567 021006 
356S 021010 

3569 021012 

3570 021016 

3571 021020 
3572 



010137 
010337 
01U37 
000421 
0627C1 
005500 
062704 
020427 
103755 
162704 
062737 
023737 
101744 
004737 
000241 
000403 
004737 
000261 
000207 



002204 
002176 
002200 

000002 

000002 
160000 

020000 

000200 172354 
172354 003100 

020230 



020230 



321: 



SOS: 

55S: 
60S: 



MOV 

MOV 

MOV 

BR 

ADD 

ADC 

ADD 

CMP 

BLO 

SUB 

ADD 

CMP 

9L0S 

JSR 

CLC 

BR 

JSR 

SEC 

RTS 



C S 

13:32 PAGE 62-1 



SEQ 93 



RKERRLO 

R3,EXPD 

(R4),ftECV 

50S 

92, HI 

RO 

#2,R4 

R4. 9160000 
3CS 

#20000, ft4 
«200,a«KlPAR6 
a#KlPAR6,KTFLG 
30S 

PC.KTOFF 
60S 

PCKTOFF 
PC 



SAVE LOU ORDER IN ERROR 
SAVE EXPD FOR ERROR HiPOnJ 
SAVE RECV FOR ERROR REPORT 

UPDATE NON PAR6 ADDRESS 
MAKE IT DOUBLE PRECISION ADD 
UPDATE PAR FORMAT ADDRESS 
END OF PAR6 MAPPING AREA? 
BR IF NO 

BACKUP INTO PAR6 MAPPING BEGIN 
POINT TO NEXT 4K BLOCK >28k. 
END OF MEMORY? 
BR IF NO 

TURN OFF MEMORY MAPPING 
SET FAILURE 

TURN OFF MEMORY MAPPING 
SET SUCCESS 



D 8 



C2TUXA0 TU80 FRONT END PfiT B 
REGSAV - SAVE R1-R5 ON STACK 



3574 

357S 

3576 

3577 

3578 

3579 

2580 

3581 

3582 

3583 

3584 

3S8S 

3586 

3587 

3S88 

3589 

3590 

3591 

3592 

3593 

3594 021022 

3595 021022 
021022 

3596 021024 

3597 021026 

3598 021030 

3599 021032 

3600 021034 

3601 0210S6 

3602 021042 

3603 021044 

3604 021046 

3605 021050 

3606 021052 

3607 0210S4 

3608 021056 
021056 

3609 021060 
3610 
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.S8TTL REGSAV - SAVE R1-R5 ON STACK 

* 

ROUTINE TO 

SAVE R1 THROUGH R5 ON THE STACK 

CALLING SEQUENCE: 

JSR R5, REGSAV 

THIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO 
THE CALLING ROUTINE. AT THE END OF THE CALLING ROUTINE. 
THE RTS PC RETURNS CONTROL TO THIS ROUTINE TO RESTORE 
REGISTERS. 

THIS ROUTINE SHOULD ONLY BE CALLED FROM ROUTINES WHICH ARE 
CALLED VIA A JSR PC INSTRUCTION 



SEQ 94 



REGSAV: 



104422 
010446 
010346 
010246 
010146 
010546 

016605 000012 

004736 

012601 

012602 

012603 

012604 

012605 

104/>22 
000207 



BREAK 




TRAP 


CSBRK 


NOV 


R4,-(SP) 


NOV 


R3.-(SP) 


NOV 


R2.-<SP) 


NOV 


RI.-(SP) 


NOV 


R5,-<SP) 


NOV 


10.(SP).R5 


JSR 


PC.a(SP)* 


NOV 


(SP)*.R1 


NOV 


(SP)*.R2 


NOV 


<SP)*.R3 


NOV 


(SP)«.R4 


NOV 


(SP)«.R5 


BREAK 




TRAP 


CSBRK 


RTS 


PC 



;LOOK FOR CNTL C 



;LOOK FOR CNTL C 



E 8 



CZTUXAO TUBO FRONT END PRT B NACRO N1200 
GETOM - GET 8 BIT PATTERN fRON OPERATOR 



3612 

3615 

36U 

3615 

3616 

3617 

3618 

3619 

3620 

3621 

3622 

3623 

362A 

362S 

3626 

3627 

3628 

3629 

3630 

3631 021062 

3632 021062 

3633 021066 
021066 
021070 
021072 
021074 
021076 
0^1100 
021102 
021104 
021106 

3634 021106 
021106 

3635 021110 

3636 021114 
3637 

3638 
3639 
3640 
3641 

3642 021116 

3643 021120 
3644 
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.SBTTL 6ETPAT - GET 8 BIT PATTERN FROM OPERATOR 



SEQ 95 



104443 
000406 
021116 
000022 
021120 
000377 
000000 
000377 



103367 

013700 021116 
000207 



ROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM THE OPERATOR 
INPUTS: 

NONE. 
OUTPUTS: 

RO OCTAL NUMBER FRON THE OPERATOR 
CALLING SEQUENCE: 

JSR PC.6ETPAT 



GETPAT:: 
IS: 



10000S: 



SAVREG zSAVE THE GENERAL REGISTERS 

GNANID 0ATASC.PAT0AT.O.377,0,377.NO 

TRAP CtGNAN 

BR 10000$ 

.WORD PATDAT 

.UORO TSCODE 

.UORD DATASC 

.UORP 377 

.UORO TSLOLIR 

.WORD TSHILIN 



BNCOHPLETE U 
BCC U 
NOV PATOAT.RO 
RTS PC 



.•RETRY IF ERROR 

:DATA PATTERN FROM OPERATOR 
.•RETURN TO CALLER 



.•LOCAL DATA AREA 



000000 
105 



116 



PATDAT: .WORD 0 .TEMPORARY STORAGE FOR DATA 

124 DATASC: .ASCIZ 'ENTER DATA PATTERN' 
.EVEN 



F 8 



CZTUXAO TU80 FRONT END PRT B NACRO HIZOO 29-fUR-83 13:32 
nr^SEL - ISSUE rENU AND GET OPERATOR RESPONSE 



PAGE 6S 



SEQ 96 



56A6 
3647 
3648 
3649 
3630 
36S1 
3652 
3653 
36S4 
365S 

3656 021144 

3657 021144 

3658 021150 

3659 021152 

3660 021154 

3661 021156 

3662 021160 
021160 
021162 
021166 
021172 
021174 
021176 

3663 021202 

3664 021204 
021204 
021206 
021210 
021212 
021214 
021216 
021220 
021222 
021224 

3665 021224 
021224 

3666 021226 

3667 021232 

3668 021234 

3669 021236 
021236 
021242 
021246 
021250 
021252 

3670 021256 

3671 021260 

3672 021262 

3673 021330 

3674 021335 
3675 

3676 021364 



.S8TTL 6ETSEL ' ISSUE MENU AND GET OPERATOR RESPONSE 



010002 
010203 
005713 
001412 

012346 

012746 021330 
012746 000002 
010600 
104417 

062706 000006 
000764 

104443 
000406 
021364 
000042 
021335 
177777 
000000 
177777 



103352 

013700 021364 

020001 

101411 

012746 021262 
012746 000001 
010600 
104417 

062706 000004 

000735 

000207 

045 116 
045 116 
105 156 



ROUTINE TO ISSUE A MENU AND GET 
THE OPERATOR'S RESPONSE. 
INPUTS: 

ADDRESS OF ASCIZ STRING OF MENU 
NAXINUM ALLOWABLE OPERATOR RESPONSE 



RO 
R1 

OUTPUTS: 
RO 



NUMBER OF THE OPERATOR'S SELECTION 



6ETSEL: 



U: 
2S: 



3$: 



100011: 



000000 



5t: 

045 NENERR: 
045 SELASC: 
164 NENASC: 

KNRES: 



SAVRE6 
NOV 

mv 

TST 

BEQ 

PRINTF 

NOV 

NOV 

NOV 

NOV 

TRAP 

ADD 

BR 

GHANID 

TRAP 

BR 

.WORD 
.WORD 
.WORD 
.WORD 
.UORD 
.WORD 



R0.R2 
R2.R3 
(R3) 
3$ 

#SELASC.(R3)« 
(R3)*,-(SP) 
f SELASC .-(SP) 
f2,-(SP) 
SP.RO 
CtPNTF 
f6.SP 
2S 

NENASC .NENRES.0,-1 .0.-1 .NO 
CSGNAN 

looon 

NENRES 
TSCOOE 
NENASC 
-1 

TSLOLIN 
TSHILIH 



:SAVE GENERAL REGISTERS 
.•SAVE THE NENU ADDRESS 
: START OF NENU STRING 
;END OF ASCII ? 

:BRANCH IF ALL LINES DISPLAYED 
.-DISPLAY THE NENU 



BNCOHPLETE 



8CC 
NOV 
CNP 
BLOS 
PRINTF 
NOV 

nov 

NOV 

TRAP 

ADD 

BR 

RTS 

.ASCIZ 

.ASCII 

.ASCIZ 

.EVEN 



IS 



U 

NENRES.RO 

R0.R1 

51 

MENERR 
iNENERR.-{SP) 
f1.-(SP> 
SP.RO 
CfPNTF 
f4.SP 
11 
PC 



.-RETRY IF ERROR 

;6ET THE OPERATOR'S REPLY 
: COMPARE TO HAXINUH ALLOWED 
.•BRANCH IF OK 
.•DISPLAY ERROR MESSAGE 



•RETRY 

•RETURN TO CALLER 



*INSA ••• Htnu Stltctlon Too Largt •••* 
•iNXf 

*Enttr Htnu Stltctlon: * 
.WORD 0 



6 8 
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CHKMAN - CHECK RANUAl INTERVENTION LE6ALITV 
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SEQ 97 



3678 

3679 

3680 

3681 

3682 

3683 

3684 

3685 

3686 

3687 

3688 

3689 

3690 

3691 

3692 

3693 

3694 

3695 

3696 

3697 

3698 

3699 

3700 021366 

3701 021366 

3702 02137? 
021372 

3703 021374 
021374 

3704 021376 
021376 
021402 
021406 
021410 
021412 

3705 021416 

3706 021420 
3707 

3708 021422 
3709 



.SBTTL CHKNAN - CHECK MANUAL INTERVENTION LEGALITY 

ROUTINE TO TEST 'OR MANUAL INTERVENTION LEGALITY. 
INPUT: 

NOME • 

OUTPUT: 



CARRY 0 
1 

SIPE EFFECTS: 



MANUAL INTERVENTION NOT ALLOWED 
MANUAL INTERVENTION IS wK 



A MESSAGE IS DISPLAYED WARNING THAT TEST IS 
NOT EXECUTED IF MANUAL INTERVENTION IS NOT 
ALLOWED. 



CHKMAN: : 



104450 
103411 

012746 021422 
012746 000001 
010600 
104417 

062706 000004 

000241 

000207 



SAVREG 
MANUAL 

TRAP CIMANI 
BCOMPLETE IS 
BCS IS 
PRINTF fNQRAN 
MOV fNOHAN.-(SP) 
f1.-($P) 
SP.RO 
CSPNTF 
f4.SP 



.-SAVE THE REGISTERS 

:SEE IF MANUAL INTERVENTION OK 

.•BRANCH IF ALLOWED 

; PRINT THE WARNING MESSAGE 



045 



116 



U: 

045 NQMAN: 



NOV 
NOV 
TRAP 
ADO 

CLC 
RTS 



PC 



; CLEAR CARRY FOR ERROR 
; RETURN 



.ASCIZ *XNU MifHMl Inttrvtntlon not AUowtd - Ttst Aborttd 
.tvtn 



H 8 



CZTUXAO TUSO FRQMT END MT B HACRO 111200 
ENVIRN - SETUP FREE DIA6M0STIC SPACE 



37n 

3712 
5713 
37U 

3715 021516 
021516 

3716 021520 

3717 021524 

3718 021532 

3719 021536 

3720 021544 

3721 021550 

3722 021556 

3723 021560 

3724 021562 

3725 021566 

3726 021572 

3727 021576 

3728 021602 
3729 



104431 
010037 
062737 
011037 
162737 
013702 
162737 
005302 
001373 
013700 
063700 
162700 
010037 
000207 
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.SBTTL ENVIRN - SETUP FREE 0IA6NOST1C SPACE 



SEO 98 



SUBROUTINE TO SET-UP VARIOUS ENVIROIMENTAL PARAMETERS. 







ENVIRN: 


NEMORV 


RO 










TRAP 


CMEN 




003072 


003072 




NOV 


RO.FREE 


; GET 1ST FREE ADDRESS... 


000002 




APD 


ff2.FREE 




003074 






NOV 


(RO).FRESIZ 


:...AND WORD COUNT. 


000004 


003074 




SUB 


i4,FRESIZ 




002012 


003074 




NOV 


LtUNlT,R2 


: GET NUMBER OF UNITS 


000007 


10$: 


SUB 


ff7.FRESIZ 


: TAKE AUAY 7 WORDS PER UNIT 








DEC 


R2 










BNE 


10S 




003072 






NOV 


FREE.RO 


;GET FIRST FREE ADDRESS 


003074 






ADD 


FRESIZ.RO 


:POINT TO LAST FREE ADDRESS 


000002 






SUB 


f2.R0 


;BACKUP 1 UORD 


003076 






NOV 


RO.FREEHI 


.•STORE LAST FREE ADDRESS 








RTS 


PC 


.•RETURN 



I 



I 8 
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SEQ 99 



5731 






5732 






5735 






575* 






3735 






5736 






3737 






3r3e Oclo'M 






SOt UcioO* 


005037 


005100 


SfHV OclOlU 


AACAV7 


aaXi a9 
005102 


ViclOl* 


Qiiicf 


AA91 9 A 
002120 






OciOc* 




AAAAA/. 
000004 




M 97X7 
Vict if 


A91 790 

021 722 




An<7X7 
U09f 3f 


1 77C79 




AAA9/,A 






A1X7X7 

Wl Jf 3A 


AA91 9A 

002 120 




n^97X7 


AAA1 77 

Uwl f f 


sfty wcioou 


aiaaX7 


AAAAA/. 


X7CA nSliLA^ 
3r3v Uc100*i 


aacaaa 
UU900V 




UclOOO 


A1 97A1 


1 79X/. A 
1 f 2340 


X7C3 A91iL73 
9r)c UclOrc 


A1 97A1 


07f *0o 


X7K\ A917(Ut 
3fj3 VCl'UU 


A1AA91 




Y7<£ n917n9 
jr?*! Uclfvc 


AA97AA 


AAA9AA 




A9AA97 


AA9AAA 




AA1XA7 
UVlJOr 




X7<7 09171^ 


A1 97/. 1 


1 77AnA 
1 f f OUU 


9r90 UclrcU 


AAA/ AC 
UUU^U9 












M 971 


A917XA 
U21r3v 


V7A1 n91 79A 


AAAAA9 




9rOc 






ii03 Uci'9U 


A1AAT7 


AAAAAi. 


X7^ 






T7A« A?171^ 


0AA907 




3780 






3781 






3782 021736 






021736 






3783 021736 


177777 


177777 


3784 021746 







.SBTTL KTINIT - SETUP KT11 RENORY NANA6ENENT REGISTERS 



jROUTINE TO INIT "T-ll 



KTINIT: 



001577 
000004 



003100 
003100 



177740 IS: 



2S: 

6S: 
9$: 

L$PR0T: 



CLR 


KTFLG 


CLR 


KTcNABLc 


CUP 


LvHIPIE* 11577 


Al AC 


9S 


NOV 


BfERRVECRO 


NOV 


ff2t*a#ERRVEC 


1 O 1 


atSRO 


NOP 




NOV 


LSHINE.KTFLG 


SIC 


ri77,ICTFL6 


NOV 


RO.BfERRVEC 




RO 


NOV 


«KIPAR0,R1 


NOV 


#77406.-40(R1) 


NOV 


RO.(RI)* 


ADD 


f200.R0 


CNP 


R0,ff2000 


BNE 


IS 


NOV 


f177600.-(R1) 


BR 


9S 


NOV 


f6S.(SP) 


RTI 


NOV 


RO.atERRVEC 


RTS 


PC 



INIT >28K NENORV FLAG 
I NIT TEST >28k flag 
GOT ENOUGH NENORV 028K)? 
NO. 

SAVE OLD ERR VEC PTR. 
SET ERR VEC PTR. 
GOT KT11? 

(TRAP IF NO). 
YES. SET KT FLAG. 

RESTORE OLD ERR VEC PTR. 

RO « AR DATA. 

R1 « Kl REGS PTR. 

SET DESCRIPTOR REG. 

SET KIPAR REG. 

BUNP AR DATA BY "4K". 

AT "I/O"? 

NO. 

YES. SET KTPAR7 FOR 1/0. 



; SET UP RETURN 

; RTI TO NEXT LOCATION 

; RESTORE OLD ERR VEC PTR. 



B6NPR0T 

'.WORD -1. -1. -1. -1 ;N0 DEVICE PROTECTION REQUIRED. 
ENDPROT 



J 8 



CZTUXAO TU80 FRONT END PRT B 
INITIALIZE SECTION 



3786 
5787 
378$ 
3789 
3790 
3791 
3792 
3793 
379* 
3795 
3796 
3797 

3798 021746 
021 7A6 

3799 021746 

380G 021746 012737 

3801 021754 005037 

3802 021760 005037 

3803 021764 005037 

3804 021770 
021770 012700 
021774 104447 

3805 021776 
021776 103023 

3806 022000 023737 

3807 022006 103073 

3808 022010 005737 

3809 022014 100475 

3810 022016 013701 

3811 022022 006301 

3812 022024 005761 

3813 022030 001521 

3814 022032 032761 

3815 022040 001063 

3816 022042 
022042 104432 
022044 000430 

3817 022046 
022046 012700 
022052 104447 

3818 022054 
022054 103055 

3819 022056 
022056 012700 
022062 104447 

3820 022064 
022064 103404 
022066 

022066 012700 
022072 104447 

3822 022074 
022074 103034 

3823 022076 

3824 022076 
022076 104433 

5S25 022100 OOS037 
3826 022104 005037 



3821 
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.SBTTL INITIALIZE SECTION 

THE INITIALIZE SECTION CONTAINS THE COOING THAT IS PERFOiWED 
AT THE BEGINNING OF EACH PASS. 

IF "START" OR "RESTART", SET QUICK-PASS FLAG AND BUS-INIT. 
IF "CONTINUE", NOTHING IS REQUIRED. 



INSERT TEMPORARY JUHP TO GOT 



LSINIT:: 
40t: 



BGNINIT 



005755 


002146 


MOV 


fEPRTI.EPRTSW 


;SET UP PRIMARY MESSAGE FOR REPLACEMENT 
; CLEAR "SOFT iNiT" FLAG 


003106 




CLR 


SIFLAG 


003102 




CLR 


KTENABLE 


.'CLEAR TEST ABOVE 28K FLAG 


002246 




CLR 


RANSIZ 


.CLEAR RAM SIZE FOR RAMERR ROUTINE 


000036 




READEF 


#EF. CONTINUE 






NOV 
TRAP 


ffEF. CONTINUE. RO 
CtREFG 








BNCOnPLETE IS 








BCC 


It 




002150 


002012 


CNP 


UNlTN.LtUNlT 


.-UNIT IN RANGE? 


003060 




BHIS 


4t 


:BR IF NO. 




TST 


DUFLG 


:DROPPED UNIT? 






Bfll 


NXTU 


:BR IF YES 


002150 




NOV 
ASL 


UNITN.R1 
R1 




003130 




TST 
BEQ 


ERTABL(RI) 
SETU 




040000 


003130 


BIT 


fBIT14,ERTABL(R1) .-DROPPED? 






BNE 


NXTU 








EXIT 


INIT 


;D0 NOTHING 1^ "CONTINUE". 






TRAP 


CSEXIT 



000035 



000040 



000057 



IS: 



2S: 



.WORD L10030-. 
READEF ffEF .NEW 
NOV fEF.NEW.RO 
TRAP CSREFG 
BNCOMPLETE NXTU 
BCC NXTU 
READEF fEF. START 
NOV fEF. START, RO 
TRAP CSREFG 
^:OMPLETE 2S 
acs 2S 

READEF fEF. RESTART 
MOV fEF. RESTART.ro 
TRAP CSREFG 
BNCOMPLETE 31S 
BCC 3U 



.•TAKE NEXT UNIT IF NOT NEU PASS. 



002162 
002170 



BRESET 
TRAP 
CLR 
CLR 



CSRESET 

TSTCMT 

FATFLG 



:1ST PASS. BUS-INIT... 
:BUS RESET. 

: NUMBER OF TESTS RUN IN PASS 
;RfSPT HAfi TO 7gan 



CZTUXAO TU80 FRONT END PRT B 
HITIALIZE SECTION 

3627 022110 
3S28 

3S29 022112 

3830 022116 

3831 022122 

3832 022126 

3833 022132 

3834 022132 

3835 022U0 

3836 022144 

3837 027150 

3838 022154 

3839 022156 

3840 022162 
3341 022164 

3842 022166 

3843 022172 
3844 

3845 022176 

3846 022176 0127J7 177777 

3847 022204 005037 002166 

3848 022210 
022210 104422 

3849 022212 005237 002150 

3850 022216 023737 002150 

3851 022224 103423 

3852 022226 012737 177777 

3853 022234 000401 

3854 022236 
022236 104444 

3855 022240 000240 

3856 022242 

3857 022242 023727 

3858 022250 101752 

3859 022252 005737 

3860 022256 001747 

3861 022260 
022260 104421 

3862 022262 032700 

3863 022266 001 543 
3864 

3865 022270 
022270 104424 

3866 022272 000741 

3867 022274 
3868 

3869 022274 
022274 013700 
022300 104442 

3870 022302 
G22302 103342 

3871 022304 005037 

3872 022310 005237 

3873 022SU 012001 

3874 022516 010157 
3875 

3876 022522 012001 



K 8 
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SfQ 101 









BR 


1 as 




tuv\'ti.n 




rWV 


BT£A _#CB\ 




Ueel 3c 






•one 




UOcU%0 




IMB 


O.OUT 






IOC • 




CIP IBT 












Ol 5717 


177777 nA91K9 

Mil II UOcl^c 




nov 


A.I AkIB 




001 CIA 








004717 








pr rTlylT 


012700 


003130 




NOV 


fERTA8L.R0 


005020 




50S: 


CIR 


(R0)« 


020027 


003550 




CHP 


RO.fERTABE 


103774 






BLO 


30S 


000404 






BR 


4S 


005037 


002152 


51$: 


CLR 


QVP 


000137 


022242 




JHP 


PASRPT 



;6R. IF THE FLA6 IS NOT SET 
;(N0 DEBUGGER ETC.) 

;RETURN TO DEBUGGER 

;;a8ENTER TNE DEBUGGER 

; CLEAR THE SUBTEST "SKIPPER" 

.-...QUICK VERIFY... 

:SET ENVIRONHENT. 

.-INITIALIZE KT KHORY fUNAGENENT 

; CLEAR THE ERROR TABLE 



:G0 REPORT THE STATUS 



002150 

002012 
005060 



4f: 

NEUPAS: 
NXTU: 



00201? 
002166 

000100 



000001 



lit: 
PASRPT: 



002150 



005060 
002166 

002154 



10S: 

SETU: 



NOV 


#-1.UNlTN 


;INIT UNIT NUMBER... 


CLR 


DEVCNT 


.'CLEAR COUNT OF DEVICES RUNNING 


BREAK 






TRAP 


CSBRK 




INC 


UNITN 


:...AND SET NEXT UNIT NUMBER. 


CMP 


UNITNAIUNIT 




BLO 


SETU 




NOV 


ff-1 .DUFLG 




BR 


lis 




DOCLN 




.•ABORT. NO MORE UNITS. 


TRAP 


CSDCLN 


NOP 






CMP 


LSUNIT.#1 


:HOU MANY UNITS SELECTED? 


BLOS 


NEUPAS 


;BR IF ONLY 1 


TST 


DEVCNT 


:ARE ANY STILL RUNNING? 


BEQ 


NEVPAS 


:BR IF NO 


RFLAGS 


RO 


TRAP 


CSfifLA 




BIT 


fISR.RC 


.-SHOULD UE PRINT STATISTICS 


BNE 


NEUPAS 


:BR IF NO 


OORPT 






TRAP 


CSORPT 




BR 


NEUPAS 





GPHARD UNITN.RO 

MOV UNITN.RO 

TRAP CS6PHRD 
BNCOHPLETE NXTU 

BCC NXTU 

CLR DUFLG 

INC DEVCNT 

MOV (R0)*.R1 

MOV R1.CSRADDR 

MOV (R0)».R1 



.-GET UNIT N P-TABLE POINTER. 

:BR IF UNIT NOT AVAILABLE. 

.-CLEAR "DROPPED" FLAG. 

;GET 1ST REGISTER ADDRESS. 

.-ADDRESS OF REGISTERS OF UNIT UNDER TEST 

;«T ygCTQR APDRISS. 



CZTUXAO TU80 FRONT END PRT B 
INITIALIZE SECTION 
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SEQ T02 



3877 022324 

3878 022326 

3879 022532 

3880 022336 

3881 022342 
3882 

3883 022344 

3884 

3885 

3886 

3887 

3888 

3889 

3890 

3891 022344 

3892 022350 
3693 022352 
3894 022360 
3695 022364 

3896 022372 

3897 022374 
022374 

3898 022376 

3899 022402 

3900 022404 
022404 
022410 
022414 
022420 
022422 
022424 

3901 022430 

3902 022430 

3903 022454 

3904 022440 

3905 022442 

3906 022446 

3907 022452 

3908 022454 

3909 022460 

3910 022466 
3911 

3912 
3913 

3914 022466 
022466 
022472 

5915 022474 
022474 
022474 

3916 

3917 022476 
3918 



011002 
010237 
010137 
012721 
010221 



013701 
006301 
052761 
005037 
023727 
101416 

104421 
03270? 
001412 

013746 
012746 
012746 
010600 
104417 
062706 

005037 
013701 
010102 
062702 
004737 
103005 
010137 
012737 



012700 
104441 



104411 
045 



002160 
002156 
017052 



IS: 



HOV 
NOV 
NOV 
HOV 
NOV 



TST 
BEQ 



(R0).R2 

R2.IPRI 

R1.IVEC 

f!NTR.(R1)« 

R2,iR1)* 



QVP 
SS 



GET INTERRUPT PRIORITY 

SET INTERRUPT PRIORITY. 

SET INTERRUPT VECTOR POINTER. 

...VECTOR... 

...AND PRIORITY. 



;1ST PASS 

;N0. SKIP THE PASS 1 STUFF. 



;1ST PASS. CHECK THAT DEVICE ADDRESSES ARE VALID. AND 
;THAT THE DISPLAY STATUS IS PROPERLY INITIALIZED. 



002150 

100000 003130 
005232 

002012 000001 



001000 



002150 
022476 
000002 



000006 

003062 
002154 

000000 
017260 

003062 

177777 003060 



10S: 



2S: 



NOV 

ASL 

BIS 

CLR 

CNP 

BLOS 

RFLAGS 

TRAP 

BIT 

BEQ 

PRINTF 

HOV 

HOV 

HOV 

HOV 

TRAP 

ADD 

CLR 
HOV 
HOV 
ADD 
JSR 
BCC 
HOV 
HOV 



UNITN.R1 
R1 

fBITl5.ERTABL(R1) :SAY DEVICE RUNNING 



EXTA 
LtUNIT.f1 
10$ 
RO 

CSRFLA 

fPNT.RO 

10S 

fPUNIT.UNlTN 

UNITN.-(SP> 

fPUHIT.-(SP) 

#2.-(SP> 

SP.RO 

CSPNTF 

«6.SP 

NODEV 

CSRADDR.R1 

R1.R2 

fTSSR.R2 

PC.XNXH 

2$ 

R1 .NODEV 
#-1.DUFLG 



.•CLEAR ERROR EXTENSION FLAG. 
;ARE WE TESTING MULTIPLE UNITS? 
*BR IF NO. 

;YES — GET OPERATOR FLAGS. 

.■SHOULD VE PRINT UNIT f? 

;BR IF NOT. 

; PRINT THE UNIT # 



ADDRESS OF FIRST REGISTER 

START OF REGISTERS 

ADDRESS OF TSSR REGISTER 

TEST BOTH CONTROLLER REGISTERS. 

...AND BR IF ALL OK. 

FLAG DEVICE AS NON-EXISTENT 

DROP THIS UNIT. 



000000 



.'FINALLY. SET CPU PRIORITY AND WE'RE DONE. 
5$: SETPRI fPRIOO :ENABLE INTERRUPTS. 



L10030: 



SETPRI fPRIOO 
HOV fPRIOO.RO 
TRAP CSSPRI 
ENDINIT 

TRAP CSINIT 



116 



045 



PUNIT: .ASCIZ 
.EVEN 



/XNXNXA« 



TESTING UNIT XD2XA 



H 8 



000006 



116 



IZTUXAO TU80 FRONT END PRT B 
ADD AND DROP UNITS SECTIONS 



5920 
3921 
3922 
3923 
3924 
3925 
3926 

3927 022544 
022544 

3928 022544 010001 

3929 022546 006301 

3930 022550 052761 

3931 022556 042761 

3932 022564 
022564 010046 
022566 012746 
022572 012746 
022576 010600 
022600 104417 
022602 062706 

3933 022606 
022606 000167 
022610 000026 

3934 022612 045 
3935 

3936 

3937 022640 
022640 

022640 104452 

3938 
3939 
3940 
3941 
3942 
3943 
3944 
3945 
3946 
3947 
3948 

3949 022642 
022642 

3950 022642 012737 

3951 022650 010001 

3952 022652 006301 

3953 022654 052761 

3954 022662 000240 

3955 022670 
022670 010046 
022672 012746 
022676 012746 
022702 010600 
022704 104417 
022706 062706 

3956 022712 
022712 000167 
022714 000030 
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SEO 103 



.SBTTL ADD AND DROP UNITS SECTIONS 



THE ADD-UNIT SE''TION CONTAINS THE CODING THAT CAUSES A DEVICE 
TO BE (A) ADDED Tu THE TEST LIST FOR THE FIRST TIME. 
OR (B) RE-INSERTED IF IT HAD BEEN PREVIOUSLY DROPPED. 



LSAU: 



100000 003130 
040000 003130 



022612 
000002 



045 IS: 



Ll0031i 



BGNAU 

flOV 

ASL 

BIS 

BIC 

PRINTF 

NOV 

NOV 

NOV 

NOV 

TRAP 

ADD 

EXIT 

.UORD 

.yORD 

.ASCIZ 

.EVEN 

ENDAU 



RO.RI : GET UNIT TO BE ADDED (R0> 

i " A WRD INDEX 
flOOOOO.ERTABL(RI) ; SET THE "ACTIVE" BIT 
f40000.ERTABL(R1) ; CLEAR THE "DROPPED" BIT 
#11. RO 
RO,-(SP) 
f1»,-(SP) 
f2.-(SP) 
SP.RO 
C$PNTF 
f6,SP 
AU 

JSJNP 
L10031-2-. 

/XNSA UNIT SDXA ADDED/ 



UNUSED. 



TRAP CSAU 



THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
TO BE RENOVEO FRON THE TEST LIST. 

SUPVSR DOES THE "DROPPING". THIS IS JUST TO TELL THE NAN. 
"DROPPED" UNITS ARE RE-SELECTED ON OPERATOR "STA" OR "ADD" 
CONNANO, OTHERWISE RENAIN INACTIVE. THE "DISPLAY" CONNAND 
WILL PRINT ALL DROPPED UNITS, AND THE P-TABLES OF THOSE 
WHICH ARE STILL ACTIVE. 

UPON ENTRY. RO CONTAINS THE UNIT TO BE DROPPED. 



177777 003060 



140000 003130 
000240 000240 



LSDU:: 



BGNOU 

NOV 
NOV 
ASL 
BIS 



240.240.240 
PRINTF fU.RO 



f-1 .DUFLG 

R0.R1 

R1 

f140000.ERTABL(R1) 



SAY DROPPED 



022716 
000002 



000006 



NOV 
NOV 
NOV 
NOV 
TRAP 
ADD 
EXIT 
.WORD 
.WORD 



RO,-(SP) 
fli.-<SP) 
#2,-(SP) 
SP.RO 
CIPNTF 
f6.SP 
DU 

JtJNP 



CZTUXAO TU80 FRONT END PRT B 
ADO AND DROP UNITS SECTIONS 



3957 022716 
3956 

3959 022746 
022746 
022746 

3960 
3961 
3962 

3963 022750 
022750 

3964 0227)0 

3965 022754 

3966 022760 

3967 022762 
022762 
022766 
022770 
022774 
022776 
023002 
023004 
023010 

3968 023012 

3969 023014 

3970 023016 

3971 023022 

3972 023022 
023022 
023022 



045 



104453 



012703 
004737 
103420 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005303 
001357 
004737 



104461 



116 



000550 
017104 



000372 
002116 
177772 
177756 

020136 
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SEO 104 



045 1$: 



L10032: 



.ASCIZ 

.EVEN 

ENDDU 



/XNZA UNIT XDZA DROPPED/ 



TRAP CSDU 



; AUTO-DROP CODE SECTION. 
B6NAUT0 



L$AUTO:: 
10$: 



20$: 
LI 0033: 



NOV 
JSR 
BCS 
DELAY 
NOV 
.WORD 
NOV 
.WORD 
DEC 
BNE 
DEC 
BNE 
DEC 
BNE 
JSR 



ff360..R3 
PC.WAITF 
20$ 
250. 

ff250.,(PC}« 
0 

L$DLY.(PC)* 
0 

-6(PC> 
.-4 

-22 (PC) 
.-20 
R3 
10$ 

PCCKDROP 



ENDAUTO 

TRAP C$AUTO 



.•ENOUGH TINE FOR 2400' REEL TO REWIND 
;UAIT FOR SSR TO SET 
.•LEAVE WHEN SSR IS SET 
.-WAIT FOR .25 SECONDS 



;BUNP COUNTER DOWN 

.•KEEP GOING 

;TRY AND DROP UNIT 

: UNUSED. 



B 9 



005737 
100405 



012765 
004737 



104412 



003060 



000000 
017104 



000000 



CZTUXAO TU80 FRONT END PRT B HACRO H1200 
CLEAN-UP AND REPORT COOING SECTIONS 



3974 
397S 
3976 
3977 
3978 
3979 
3980 

3981 023024 
023024 

3982 023024 

3983 023030 
3984 

3985 

3986 023032 

3987 023040 

3988 023044 

3989 023044 
023044 
023044 

3990 
3991 
3992 
3993 

3994 023046 
023046 

3995 023046 
023046 
023052 
023056 
023060 
023062 

3996 023066 

3997 025070 

3998 023072 

3999 023074 

4000 023100 

4001 023102 

4002 023104 

4003 023106 

4004 023110 

4005 023114 

4006 02311 6 

4007 023122 
023122 
023124 
023126 
023132 
023156 
023140 
025142 

4008 025146 

4009 025150 

4010 025154 

4011 025156 
025156 
025160 
025164 
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.SBTTl CLEAN-UP AND REPORT CODING SECTIONS 



SEQ IDS 



THE CLEANUP COO!NG SECTION CONTAINS THE CODING THAT IS 
EXECUTED AT THE END OF EACH PASS (OR SUB-PASS). 
USE TO RETURN DEVICE UNDER TEST TO A NEUTRAL STATE. 



BGNCLN 
LSCLEAN: : 

7ST DUFLG 
BNI 1$ 



;"DROPPED" FLAG IS SET ON... 
.'...AND GROSS CONTROLLER FAULT... 
DON'T TnV TO XCT CLEANUP CODE, 

:D0 SOFT INIT 



NOV «0.TSSR(R5> 

JSR PC.UAITF 
1$: 

2$: ENDCLN 
LI 0034: 

TRAP CSCLEAN 

THE REPORT CODING SECTION CONTAINS THE 
"PRINTS" CALLS THAT GENERATE STATISTICAL REPORTS. 









BgNnPT 












LSRPT:: 


PRINTS 
















•0cV5UPI,-15r) 








AAAAA1 




nov 


fl ,-\5r J 






OlOoOQ 






PWV 


<M aA 






104416 






TRAP 


CSPNTS 






062706 


000004 




ADD 


f4.SP 






010246 






NOV 


R2.-(SP) 






010346 






NOV 


R5.-(SP) 






010446 






MOV 


R4,-(SP) 






012704 


005130 




NOV 


ffERTABL«R4 




GET START OF ERROR TABLE. 


005003 






CLR 


R5 




CLEAR UNIT NUWER 


011402 




1$: 


NOV 


(R4).R2 




GET ERROR TABLE ENTRY % TEST 


001467 






BEQ 


4t 




ZERO IF UNIT NOT RUN 


100066 






BPL 


4t 






032702 


040000 




BIT 


fBIT14,R2 


• 
• 


WAS UNIT DROPPED? 


001015 






BNE 


2$ 


• 


BR IF YES 


042702 


170000 




SIC 


#*C7777.R2 


• 
9 


GET ERROR COUNT FIELD 








PRINTS 


mV0M.,R3,R2 


9 
• 


PRINT 


010246 






NOV 


R2.-(SP) 






010546 






NOV 


R3.-<SP> 






012746 


025545 




NOV 


fDEVONL.-(SP) 






012746 


000003 




NOV 


f5.-<SP) 






010600 






NOV 


SP.RO 






104416 






TRAP 


CSPNTS 






062706 


000010 




ADD 


flO.SP 






000446 






BR 


4t 






020227 


16000C 


2$: 


CNP 


R2.f160000 


• 
• 


WAS UNIT NON-EXISTENT? 


001012 






BNE 

PRINTS 


5S 

fDEVNXR,R5 


• 
• 


BR IF NO 


010546 






NOV 


R5.-(SP> 






012746 


025415 




NOV 


mVNIR,-(SP) 






012746 


000002 




NOV 


f2--<SP) 







CZTUXAO TU80 FRONT END PR7 B MACRO N1200 
ri PAN-UP AND REPORT CODING SECTIONS 



023170 
023172 
025174 

4012 023200 

4013 023202 

4014 023206 

4015 023210 
023210 
023212 
023216 
023222 
023224 
023226 

4016 023232 

4017 023234 

4018 023240 
023240 
023242 
023244 
0232S0 
0232S4 
023256 
023260 

4019 023264 

4020 023270 

4021 023272 

4022 023276 

4023 023300 

4024 023302 

4025 023304 

4026 023306 
023306 
023306 

4027 
402S 

4C29 023310 

4030 023345 

4031 023415 

4032 023477 

4033 023560 
4034 
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SEQ 106 



010600 






NOV 


SP«RO 


104416 






TRAP 


CSPNTS 


062706 


0C0006 




Af J 


f6.SP 


000431 






BR 


4« 


020227 


160001 


3S: 


CNP 


R2*f 160001 


001012 






BNE 

PRINTS 


30$ 

fDEVNRD,R3 


010346 






NOV 


R3.-(SP) 


012746 


023477 




NOV 


fDEVNRD,-(SP) 


012746 


000002 




NOV 


f2.-(SP) 


010600 






NOV 


SP.RO 


104416 






TRAP 


CSPNTS 


062706 


000006 




ADD 


f6«SP 


000414 






BR 


4$ 


042702 


170000 


30S: 


BIC 

PRINTS 


#*C7777,R2 
fDEVDRO,R3,R2 


010246 






NOV 


R2,-<SP) 


010346 






NOV 


R3.-(SP) 


012746 


023560 




NOV 


fDEVDRO,-(SP) 


012746 


000003 




NOV 


f3,-(SP) 


010600 






NOV 


SP.RO 


104416 






TRAP 


CSPNTS 


062706 


000010 




ADD 


#10.SP 


062704 


000002 


4$: 


ADD 


f2.R4 


005203 






INC 


R3 


020427 


003330 




C»» 


R4.fERTABE 


103701 






BIO 


IS 


012604 






NOV 


(SP)».R4 


012603 






NOV 


(SP)*.R3 


012602 




L10C35: 


NOV 
ENDRPT 


(SP)*.R2 


104425 






TRAP 


CSRPT 



045 
045 
045 
045 
045 



116 
101 
101 
101 
101 



WAS UNIT NOT READY AT STARTUP? 
BR IF NO. 



045 DEVSUN: .ASCIZ 
040 DEVONL: .ASCIZ 
040 DEVNXR: .ASCIZ 
040 DEVNRD: .ASCIZ 
040 OEVORO: .ASCIZ 
.EVEN 



: UNUSED. 



/XNUDEVICE STATUS SUHNAftY:XN/ 

/U UNIT X03XA ONLINE, ERRORS « XDXN/ 

/SA UNIT SD3U DROPPED, NON-EXISTENT REGISTERXN/ 

/SA UNIT SD3U DROPPED. NOT READY AT STARTUPXN/ 

/SA UNIT XD3M DROPPED. ERRORS - XDXN/ 
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4062 

4063 

4064 

4065 

4066 

4067 

4068 

4069 

4070 

4071 

4072 

4073 

4074 

407. 

4076 

4077 

4078 

4079 

4080 

4081 

4082 

4083 

4084 
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SEQ 107 



.SBTTL TEST 1: FIFO EXERCISER 



TEST DESCRIPTION: 

This ttst usts tht yrltr SubsystM Ht«ory coMiand to 
vtrlfy tht controUtr*« FIFO and Msociat<(d status and 

control logic. 

TEST STEPS: 

REPEAT FOR LOOPCNT 
BEGIN 

Do Subttst 1 
Do Subttst 2 
Do Subttst 3 
Do Subttst 4 
Do Subttst 5 
Do Subttst 6 



END 



- FIFO Inltlallzt status ttst 

- FIFO Uritt Slnglt Bytt ttst 
• FIFO Uritt Plultlplt Bytts ttst 

- FIFO Vtrlfy ILU Status ttst 
-FIFO Input Rtady ttst 

- FIFO Vtrlfy RtStt FIFO ttst 



4085 
4086 
4091 
4092 
4093 
4094 
4095 
4096 
4097 
4098 
4099 
4100 
4101 
4102 
4103 



4104 
4105 
4106 
4107 
4108 
4109 
4110 
4111 
4112 
4113 
4114 



023630 
023630 
023630 
023634 
023640 
023644 
023650 
023656 
023662 



005037 002170 

005037 003100 

012700 031216 

004737 017372 

012737 000002 002164 

004737 020230 

005037 003102 



B6NTST 

CLR 
CLR 
NOV 
JSR 
NOV 
JSR 
CLR 



FATFL6 
KTFLG 

fTST17ID,R0 

FC.TSTSETUP 

f2.A00PCNT 

PC.KTOFF 

KTENABLE 



T1 : : 

; CLEAR FATAL ERRORFLAG 
;HOLD OF KT11 

.-ASCII NESSAGE TO IDENTIFY TEST 
;D0 INITIAL TEST SETUP 
.'PERFORN 2 ITERATIONS 
;SHUT OFF NENORV NANA6ENENT 
:REALLV SHUT DOUN KT-11 



023666 
023666 
023666 
023670 



THIS CODE CHECKS FOR THE DRIVE TO BE AT BOT VIA A REWIND COMMAND 



104402 

012737 014544 033126 



B6NSUB 



NOV 



f6S00..T17DLY 



T1.1: 

;SET UP LOOP COUNTER 



TRAP CSBSUB 



;ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF THERE'S AN ERROR 



023676 
023702 
023704 
023704 
023710 
023712 
023716 
021720 



004737 016630 
103424 

012727 000250 
000000 

013727 002116 
000000 

00SS67 177772 



58: JSR PC.SOFINIT 
BCS lot 
DELAY 250 



:D0 INITIALIZE ON CONTROLLER 
:BR IF INIT UAS OK 
; DELAY A WHILE 

NOV f250«(FC)« 
.WORD 0 

NOV Lt0LV.(PC)» 
.WORD 0 

ML. '-hiBU 



) 

' CZTUXAO TU80 FRONT END PRT B 
TEST 1: FIFO EXERCISER 



E 9 
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SEO 108 



02372A 
023726 
023732 

4115 023734 

4116 023740 

4117 023744 
023744 
023746 
023750 
023752 

4118 023754 
4119 

4120 023754 

4121 

4122 

4123 

4124 

4125 

4126 

4127 

4128 023760 

4129 023764 

4130 023766 

4131 023772 
4135 023774 

023774 
023776 
024000 
024002 

4136 
4137 
4138 
4139 
4140 
4141 
4142 
4143 
4144 

4145 024004 

4146 024010 

4147 024012 

4148 024016 

4149 024020 

4150 024022 

4154 024026 
024026 
024030 
024032 
024034 

4155 024036 
024036 

4156 024040 
4157 

4158 024042 

4159 024046 



177756 

020064 
000000 



001375 
005367 
001367 
004737 
016501 

104455 
000144 
003550 
011656 



012704 032640 



JSR 
NOV 
ERRDF 



P'".FATCHK 

TSSM<R5),R1 

ERRN0.SFIERR,SFIHS6 



10$: 



NOV 



fT17PACKET,R4 



BNE .>4 

DEC -22(PC) 

BNE .-20 

.INCRENENT AND CHECK FOR NORE TNAN 25 ERRORS 

.•CONTENTS OF THE TSSR REGISTER 

.•FATAL ERROR TSSR WAS NOT OK 

TRAP CKRDF 

.WORD 100 

.WORD SFIERR 

.WORD SFINSG 



; SUBROUTINE NEEDS PACKET ADDRESS 



.•WRITE CHARACTERISTICS CONNAND (CALL TO WRTCXR) 



004737 
10S407 
004737 
010001 

104456 
000145 
004754 
011656 



010322 
020064 



JSR PC.WRTCHR 

BCS 151 

JSR PC.FATCHK 

NOV RO.RI 

ERRHRD ERRNO.VRTNSG.SFINSG 



.ISSUE WRITE CHARACTERISTICS 

:BR IF CONNAND ISSUED IS OK 

.-INCREMENT AND CHECK FOR NORE THAN 25 ERRORS 

:SAVE CONTENTS OF TSSR 

.•WRITE CHARACTERISTICS FAILED 

TRAP CSERHRD 
.WORD 101 
.WORD WRTHSG 
.WORD SFINSG 



ISSUE A REWIND CONNAND TO THE SELECTED TAPE DRIVE 



010424 
033126 

020064 



004737 
103412 
005337 
001327 
010001 
004737 

104456 
000146 
031235 
011670 

104406 
104406 



000137 030762 



15S: 



JSR 


PC. REWIND 


.CALL TAPE REWIND CONNAND 


BCS 


30S 


:BR IF NO PROBLEN 


DEC 


T17DLY 


:DEC DELAY COUNTER 


BNE 


S$ 


;BR IF LOOP IS REQUIRED 


NOV 


R0.R1 


;SAVE TSSR 


JSR 


PC.FATCHK 


.INCRENENT AND CHECK FOR NORE THAN 25 ERRORS 


ERRHRD 


ERRN0.T17RWN.PKTSSR 


.•REWIND NOT ACCEPTED 



30S: 



T17L00P: 



CKLOOP 

TRAP CSCLPI 
JNP TNPEND 



;L0OP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



CSERHRD 
102 

T17RWN 
PKTSSR 



TRAP CSCLP1 



:aMTENP JUNP OVER FIFO TESTS 
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PACE 77 



SEQ 109 



4161 
4162 
4163 
4164 
4165 
4166 
4167 
4168 
4169 
4170 
4171 
4172 
4175 
4174 
417$ 
4176 
4177 
4178 
4179 
4180 
4181 
4182 
4183 
4184 
41 8S 
4186 
4187 

4188 024046 

4189 024046 

4190 0240S2 

4191 0240S4 

4192 0240S6 
0240S6 
024060 
024062 
024064 

4193 

4194 024066 

4195 024072 

4196 024076 

4197 024102 

4198 024104 

4199 024106 

4200 024106 
024106 
024110 
024112 
024114 

4201 024116 

4202 024122 
024122 

4203 
4204 

4205 024124 

4206 024130 

4207 024134 

4208 024140 



.SBTTL TEST 1: SUBTEST 1: FIFO INITIALIZE STATUS TEST 

TEST 1: SUBTEST 1: 

SUBTEST DESCRIPTION: 

Thfs ttst vtrlflts, by using tht Rtad Status stltct codt. 
that tht FIFO status is In tht corrtct Initial statt afttr 
tht controUtr Is Inltlallitd (Input Rtady TRUE. 
Output Rtady and Data In Niss FALSE). Thtst status 
signals art chtcktd by tht control ltr*s stlf-ttst 
stqutnct* so this subttst Is actually sort of a partial 
chtck of tht Rtad Status function than tht FIFO status. 

TEST STEPS: 

BEGIN 

Vritt to TSSR to soft Inltlallzt 
Do a WRITE CHARACTERISTICS to sttup a Mssagt bufftr 
Do a WRITE SUBSYSTEM Rtad Status 
If Input Rtady NOTsI Than Print Error 
If Output Rtady NOTsO Than Print Error 
If Data In Hiss NOTO Than Print Error 



END 



004737 016630 

103405 

010001 

104455 
000146 
003550 
011656 

005037 002170 
012704 032640 
004737 010322 
103407 
010001 



104455 
000147 
031263 
011670 

004737 020064 
104406 



004737 032422 

012704 033010 

010465 177776 

004737 017220 



5S: 



Writt to TSSR rtglsttr to soft Inlclalitt tht controUtr 



10S: 



42S: 



508: 



JSR PC.SOFINIT 

BCS 10$ 

NOV R0.R1 

ERRDF ERRN0.SFIERR.SFINS6 



Do a MITE CHARACTERISTICS to 

CLR FATFL6 

NOV tT17PACKET.R4 

JSR PC.URTCHR 

BCS 50S 

NOV R0.R1 

NEXT ERRNO 

ERRDF ERRN0.T17SSR.PKTSSR 



JSR PC.FATCHK 
CKLOOP 



; WRITE TO TSSR TO SOFT INITIALIZE 

:BR IF SOFT INIT OKAY 

.SAVE CONTENTS OF TSSR 

.•DEVICE FATAL DURING INIT 

TRAP CSERDF 
.WORD 102 
.WORD SFIERR 
.WORD SFINSC 

sttup a Mssagt bufftr 
.•CLEAR FATAL ERROR FLAG 
:GET THE ADDRESS OF CONNAND PACKET 
;D0 WRITE CHARACTERISTICS CONNAND 
.•BR IF CARRY SET (GOOD RETURN) 
.SAVE CONTENTS OF TSSR 

.•DEVICE FATAL SSR FAILED TO SET 

TRAP CtERDF 
.WORD 103 
.WORD T17SSR 
.WORD PKTSSR 

.•INC AND CHECK FOR NORE THAN 25 ERRORS 

;LOOP ON ERROR. IF FLAG SET 

TRAP CSCLP1 



Do a Writt Subsystta READ STATUS 
JSR PC.T17SRD 
NOV fT17PK2.R4 
NOV R4.TSDB(R5) 
JSR PC.CHKTSSR 



; SETUP PACKET FOR READ STATUS 
:GET WRITE SUBSYSTEM COfWAND PACKET 
:SET THE PACKET ADDRESS TO EXECUTE 
.UAiT FAR SSR TO SIT 
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SEQ 110 



42U 



4221 
4222 



4209 024144 

4210 024146 

4211 024150 

4212 024150 
024150 
02415? 
024154 
024156 

4213 024160 
024164 
024164 

4215 

4216 024166 

4217 024172 
421 ^ 024176 

4219 024202 

4220 024204 
024206 
024212 

4223 024216 
4224 
4225 

4226 024222 

4227 024224 

4228 024230 

4229 024234 

4230 024240 

4231 024244 

4232 024246 

4233 024246 
024246 
024250 
024252 
024254 

4234 024256 
024256 

4235 

4236 024260 
024260 
024260 

4237 

4238 024262 

4239 024266 

4240 024270 

4241 024274 
4242 



103407 




OIOAAI 
VIWVU 1 




104455 




000150 




031364 




011670 




004737 


020064 


104406 




004737 


032604 


012701 


031012 


012702 


032702 


012221 




011211 




052711 


000020 


042711 


000040 


042711 


000200 



62S: 



70t: 



005000 
012701 
012702 
012705 
004737 
103404 



104456 
000151 
031603 
012172 

104406 



104403 

005737 
001402 
004737 



032662 
030772 
000024 
011322 



82t: 



90t: 



002170 
020136 



BCS 70$ 
NOV R0.R1 
NEXT.ERRNO 

ERRDF E«RN0«T173SSR.PKTSSR 



JSR 
CKLOOP 



PC.FATCHK 



:8R IF CARRY SET (6000 RETURN) 
:SAVE CONTENTS OF TSSR 

.'DEVICE FATAL SSR FAILED TO SET 

TRAP CtERDF 

.UORD 104 

.UORO T173SSR 

.yORD PKTSSR 



:INC AND CHECK FOR MORE 
;LOOP ON ERROR, IF FLAG 



Stt 

JSR 
NOV 
NOV 
NOV 
NOV 
BIS 
BIC 
BIC 
It 



THAN 25 ERRORS 
SET 

TRAP CSCLPI 

UORDS 0'7 of tipd Mssagt bufftr « to rtcv tine* not ttsting 
PC.T17SETEXP ;SET WORDS 0-7 EXPD«RECV 

fTl7EXSTA.R1 ;6ET EXPECTED READ STATUS 

ffT17BFSTA.R2 :6ET RECV READ STATUS 

(R2)«.(R1)« :SET EXPD WORD ff8 * RECV TENP 



(R2),(R1) ;SET 
ffS2.INRDY.(R1) :SET 
fS2.0UTRDY.(R1) ;SET 
ffS2.DIN«(R1) :SET 
Input Rtady NOT^I thon Print Error 



EXPD WORD #9 « RECV TENP 
EXP INPUT READY* TRUE 
EXP OUTPUT READY* FALSE 
EXP DATA IN NISS * FALSE 



If Output Rtady NOT«0 or Data fn Hist NOT*0 Than Print Error 



CLR RO 

NOV ffTITBFR.RI 

NOV ffT17EXP.R2 

NOV ff20..R3 

JSR PC.CKNS62 

BCS 90S 
NEXT.ERRNO 

ERRNRD ERRN0.T171CNP.HS6STAT 



CKLOOP 



:HI6H RECV ADDRESS FOR CKNS62 
:LOW RECV ADDRESS FOR CKNSG2 
:EXPD ADDRESS 

.•NUMBER OF BYTES TO COMPARE 
;EXPD EQUAL RECV? 
;6R IF YES 



.•REPORT ERROR 



.-LOOP W ERROR. IF FLAG 



TRAP 

.WORD 

.WORD 

.WORD 

SET 

TRAP 



CSERHRD 
105 

T171CNP 
NS6STAT 

CSCLPI 



160S: 



ENDSUB 



TST 
BED 
JSR 



FATFLG 
160S 

PC.CKDROP 



;//////////// END SUBTEST ////////// 
L10037: 

TRAP CSESUB 

;ANY FATAL ERRORS ? 

:BRANCH IF NOT 

;TRY TO DROP THE UNIT 
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SEO 111 



4244 

4245 

4246 

4247 

424B 

4249 

4250 

4251 

4252 

4253 

4254 

4255 

4256 

4257 

4258 

4259 

4260 

4261 

4262 

4263 

4264 

4265 

4266 

4267 

4268 

4269 

4270 

4271 

4272 

4275 

4274 

4275 

4276 

4277 

4278 

4279 

4280 

4281 

4282 

4283 

4284 

4285 

4286 

4287 

4288 



4289 
4290 
4291 
4292 
4?93 
4294 
4295 



024274 
024274 

024274 104402 



024276 

024276 004737 016630 

024302 103405 

024304 010001 
024306 

024306 104455 

024310 000151 

024312 003550 



.SBTTL TEST 1: SUBTEST 2: FIFO WRITE SINGLE BYTE TEST 

*TEST 1: SUBTEST ?.: 

SUBTEST PESCRIPTION: 

This tubttst vtrlfitt tht abUlty of tht FIFO to corrtctly 
pass a slnglt data bvtt froM Input to output. For tach 
of 256 data valutt (0-377 octal) tht following It dont: 
1. Initial FIFO status Is chtcktd 

Tht Wrltt FIFO function, iptclfying a count of 
ont bytt to bt Mritttn Is txtcuttd. 
Rtad Status Is txtcuttd and FIFO status Is chtcktd. 
4. Rtad FIFO Is txtcuttd and tht data and final status 
Is chtcktd. 



2. 
3. 



TEST STEPS: 
BEGIN 

Wrltt to TSSR to soft Inltlallzt 

Do a WRITE CHARACTERISTICS to sttup a Mssagt bufftr 

Do a Wrltt Subsystta READ STATUS 

If Input Rtady N0T«1 Than Print Error 

If Output Rtady NOT«0 Than Print Error 

If Data In Hiss NOTsO Than Print Error 

REPEAT FOR DATA FRON 0 TO 377 OCTAL 
BEGIN 

Do a Wrltt SubsystMi WRITE NPR to stt tapt dirtctlon out 
Do a Wrltt Subsystta WRITE FIFO with bytt count tqual to 1 
Do a Wrltt Subsystta READ STATUS 
If Input Rtady NOT^I Than Print Error 
If Output Rtady N0T«1 Than Print Error 
If Data In Hiss NOTsO Than Print Error 
Do Wrltt Subsystta READ FIFO with bytt count tqual to 1 
If Data rtad froa FIFO NOT* to Data stnt Thtn Print Error 
Do a Wrltt Subsystta READ STATUS 
If Input Rtady N0T*1 Thtn Print Error 

Thtn Print Error 
Thtn Print Error 



END 
END 



If Output Rtady NOT«0 
If Data m Hiss NOTsO 



BGNSUB 



;//////////// BEGIN SUBTEST ////////// 
T1.2: 

TRAP CSBSU6 



Wrltt to TSSR rtglsttr to soft Inltlallza tht controlltr 



JSR PC.SOFINIT 

BCS 10S 

NOV R0.R1 

ERRDF ERRNO.SFIERR.SFIHSG 



:WRITE TO TSSR TO SOFT INITIALIZE 
;BR IF SOFT INIi OKAY 
:SAVE CONTENTS OF TSSR 
.DEVICE FATAL DURING INIT 

TRAP CtERDf 
.WORD 105 

UUtt 
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$E0 112 



0243U 

4296 

4297 024316 

4298 024322 

4299 024326 

4300 024332 

4301 024334 

4302 024336 

4303 024336 
024336 
024340 
024342 
024344 

4304 024346 

4305 0243S2 
024352 

4306 

4307 024354 

4308 024S6C 

4309 024364 

4310 024370 

4311 024374 

4312 024376 

4313 024400 

4314 024400 
024400 
024402 
024404 
024406 

4315 02U10 

4316 024414 
024414 

4317 

4318 024416 

4319 024422 

4320 024426 

4321 024432 

4322 024434 

4323 024436 

4324 024442 

4325 024446 
4326 

4327 

4328 024452 

4329 024454 

4330 024460 

4331 024464 

4332 024470 

4333 024474 

4334 024476 

4335 024476 
024476 
024500 
024502 
024504 

4336 024506 
J2450^ 



011656 

005037 
012704 
004737 
103407 
010001 



104455 
000152 
031263 
011670 
004737 

104406 

004737 
012704 
010465 
004737 
103407 
010001 



002170 
032640 
010322 



005000 
012701 
012702 
012703 
004737 
103404 



104456 
000154 
031603 
012172 

104406 



020064 



032422 
033010 
177776 
017220 



104455 




00015^ 




03131^ 




011670 




004737 


020064 


104406 




004737 


032604 


012701 


031012 


012702 


032702 


012221 




011211 




052^11 


000020 


042711 


000040 


042711 


000200 



032662 
030772 
000024 
011322 



10$: 



42S: 



508: 



628: 



708: 



Do • 

CLR 
NOV 
JSR 
BCS 
NOV 



MITE CHARACTERISTICS to sttup « Mss*9t bufftr 



.yORO if INSG 



FATFLG 

ffV17PACKET,R4 
PCWRTCHR 
508 
RO.RI 
NEXT.ERRNO 

ERRDF ERRN0.T17SSR.PKTSSR 



JSR 

CKLOOP 



PC.FATCNK 



Do « 

JSR 
NOV 
NOV 
JSR 
BCS 
NOV 



Writt SubsystM READ STATUS 



:CLEAR FATAL ERROR FLAG 
.-GET THE ADDRESS Of CONNAND PACKET 
;D0 WRITE CHARACTERISTICS CONNANO 
;BR IF CARRY SET (GOOD RETURN) 
.SAVE CONTENTS OF TSSR 

.•DEVICE FATAL SSR FAILED TO SET 

TRAP C8ER0F 

.yORD 106 

.yORD T17SSR 

.yORD PKTSSR 

; INC AND CHECK FOR NORE THAN 25 ERRORS 
:LOOP ON ERROR. IF FLAG SET 

TRAP C8CLP1 



PC.T17SR0 
fT17PK2.R4 
R4.TSDB(R5) 
PC.CHKTSSR 
708 
R0.R1 
NEXT.ERRNO 

ERRDF ERRNO.T173SSR,PKT$SR 



JSR 

CKLOOP 



PC.FATCHK 



Stt WORDS 0*7 of txpd ■tssagt bufftr 

JSR PC.T17SETEXP 

NOV fT17EXSTA.R1 

NOV fT17BF$TA.R2 

NOV (R2)«.(R1)* 

NOV (R2).(R1) 

BIS fS2.INRDY.(R1) 

BIC fS2.0UTRDY.(R1} 
BK 



.•SETUP PACKET FOR READ STATUS 

:GET WRITE SUBSVSTEN CONNAND PACKET 

;SET THE PACKET ADDRESS TO EXECUTE 

.WAIT FOR SSR TO SET 

:BR IF CARRY SET (GOOD RETURN) 

;SAVE CONTENTS Of TSSR 

.•DEVICE f ATAL SSR FAILED TO SET 

TRAP C8ERDF 
.WORD 107 
.WORD T173SSR 
.WORD PKTSSR 
;INC AND CHECK FOR NORE THAN 25 ERRORS 
.-LOOP ON ERROR. IF FLAG SET 

TRAP C8CLP1 
* to rtcv tinco not ttsting 
SET WORDS 0-7 EXPD«RECV 
GET EXPECTED READ STATUS 
GET RECV READ STATUS 
SET EXPD WORD #8 « RECl TENP 
SET EXPD WORD #9 « RECV TENP 
SET EXP INPUT READV> TRUE 
SET EXP OUTPUT READY* FALSE 
SET EXP DATA IN NISS « FALSE 



f$2.DIH.<R1) 
If Input Rtady NOT ■I thtn Print Error 

If Output Rtody NOTsO or Data In Nftt NOT*0 Thon Print Error 



CLR RO 

NOV fTITBFR.Rl 

NOV fT17EXP.R2 

NOV f20..R3 

JSR PC.CKNS62 

BCS 908 
NEXT.ERRNO 

828: ERRHRD ERRN0,T171CNP.HSGSTAT 



908: CKLOOP 



:HIGH RECV ADDRESS FOR CKNSG2 
.-LOW RECV ADDRESS FOR CKNSG2 
;EXPD ADDRESS 

.NUNBER OF BYTES TO CONPARE 
.EXPD EQUAL RECV? 
;BR IF YES 



: REPORT ERROR 



.LOOP ON ERROR. IF 



TRAP 
.WORD 
.WORD 
.WORD 
FLAG SET 



C8ERHRD 
108 

T171CNP 
NSGSTAT 

ClOPt 
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SEO 115 



4557 
4558 

4559 024S10 
4540 024516 
4541 

4542 024516 
4545 024S22 

4544 024526 

4545 024S52 

4546 024556 

4547 024542 

4548 024544 

4549 024546 

4550 024546 
024546 
024550 
024552 
024554 

4551 024556 

4552 024562 
024562 

4555 

4554 024564 

4555 024570 

4556 024574 

4557 024600 

4558 024604 

4559 024610 

4560 024614 

4561 024616 

4562 024620 
4565 024620 

024620 
024622 
024624 
024626 

4564 024650 

4565 024654 
024634 

4566 
4567 

4568 024656 

4569 024642 

4570 024646 

4571 024652 

4572 024656 
4575 024660 

4574 024662 

4575 024662 
024662 
024664 
024666 
024670 

4576 024672 

4577 024676 
024676 

4578 



012757 000000 002256 



R«pt«t for DATA from 0 to 577 
NOV fO.DATA 



100S: 



012700 
004757 
012704 
010465 
004757 
105407 
010001 



104455 
000155 
011451 
011670 
004757 

104406 

012700 
012701 
004757 
012704 
010465 
004757 
105407 
010001 



104455 
000156 
051474 
011670 
004757 

104406 



004737 
0%704 
010465 
004757 
105407 
010001 



104455 
000157 
051564 
011670 
004757 

104406 



000100 
052464 
055010 
177776 
017220 



102S: 



020064 



000001 
002256 
052510 
055010 
177776 
017220 



105S: 



107S: 



020064 



052422 
055010 
177776 
017220 



110$: 



112S: 



020064 



120S: 



Do « Uritt ^ubsyttta WRITE NPR 

NOV fNP.OUr.RO 

JSR PC.T17SNPR 

NOV «T17PK2,R4 

NOV R4.TS0B(R5> 

JSR PC.CHKTSSR 

BCS loss 

NOV R0.R1 

NEXT.ERRNO 

ERRDF ERRN0.T174SSR.PKTSSR 



:GET FIRST DATA 
.REPEAT LABEL 
to ttt tapt dfrtctlon out 
:SET TAPE DIRECTION OUT 
.•SETUP T17PK2 FOR WRITE NPR 
; GET WRITE SUBSVSTEN CONHAND PACKET 
;SET THE PACKET ADDRESS TO EXECUTE 
;WAIT FOR SSR TO SET 
:BR IF CARRY ScT (GOOD RETURN) 
.-SAVE CONTENTS 0' TSSR 



.DEVICE FATAL SSR FAILED TO SET 

TRAP CSERDF 
.WORD 109 
.WORD T174SSR 
.WORD PKTSSR 

JSR PC.FATCHK ;INC AND CHECK FOR KORE THAN 25 ERRORS 

CKLOOP .LOOP ON ERROR. IF FLAG SET 

TRAP CSCLP1 

Do 0 WrUt SubsyttM WRITE FIFO with bytt count tqual to 1 



NOV f1.R0 

NOV fDATA.Rl 

JSR PC.T17WFIF 

NOV fT17PK2.R4 

NOV R4.TSDB(R5) 

JSR PC.CHKTSSR 

BCS 11 OS 

NOV R0.R1 
NEXT.ERRNO 

ERRDF ERRN0.T175SSR.PKTSSR 



JSR 
CKLOOP 



PC.FATCHK 



; WRITE 1 BYTE 
.-FIFO WRITE DATA ADDRESS 
.•SETUP T17PK2 FOR WRITE FIFO 
.-GET WRITE SUBSYSTEN CONNAND PACKET 
;SkT THE PACKET ADDRESS TO EXECUTE 
;WAIT FOR SSR TO SET 
;BR IF CARRY SET (GOOD RETURN) 
.•SAVE CONTENTS OF TSSR 

: DEVICE FATAL SSR FAILED TO SET 

TRAP CSERDF 
.WORD 110 
.WORD T175SSR 
.WORD PKTSSR 

:INC AND CHECK FOR NORE THAN 25 ERRORS 

;LOOP ON ERROR. IF FLAG SET 

TRAP CSCLP1 



Do • Writt SubsytttM READ STATUS 
JSR PC.Tl7SiiD 
NOV «T17PK2.R4 
NOV R4.TSDB(R5) 
JSR PC.CHKTSSR 
BCS 120S 
NOV R0.R1 
NEXT.ERRNO 

ERRDF ERRN0.T175SSR.PKTSSR 



.•SETUP PACKET FOR READ STATUS 

.-GET WRITE SUBSYSTEN CONNAND PACKET 

;SET THE PACKET ADDRESS TO EXECUTE 

.-WAIT FOR SSR TO SET 

:BR IF CARRY SET (GOOD RETURN) 

:SAVE CONTENTS OF TSSR 



JSR 

CKLOOP 



PC.FATCHK 



.•DEVICE FATAL SSR FAILED TO SET 

TRAP CSERDF 
.WORD 111 
.WORD T175SSR 
.WORD PKTSSR 
THAN 25 ERRORS 
SET 

TRAP CICLP1 



;INC AND CHECK FOR NORE 
:LOOP ON ERROR. IF FLAG 



Stt WORDS 0»7 of taod ■•ssao* bu ffT = to rfcy *if^m nnt f tUng 



K 9 
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SEQ 1U 



4379 024700 

4380 024704 

4381 024710 

4382 024714 

4383 024716 

4384 024720 

4385 024724 

4386 024730 
4387 

4388 

4389 024734 

4390 024736 

4391 024742 

4392 024746 

4393 024752 

4394 024756 

4395 024760 

4396 024760 
024760 
024762 
024764 
024766 

4397 024770 
024770 

4398 

4399 
•00 024772 

4401 024776 

4402 025002 

4403 025006 

4404 025012 

4405 025016 

4406 025020 

4407 025022 

4408 025022 
025022 
025024 
025026 
025030 

4409 025032 

4410 025036 
025036 

4411 

4412 025040 

4413 025044 

4414 025050 

4415 025054 

4416 025060 
4417 

4418 

4419 025062 

4420 025064 

4421 025070 

4422 025074 

4423 025100 

4424 025104 

4425 025106 



004737 
012701 
012702 
012221 
011211 
052711 
052711 
042711 



005000 
012701 
012702 
012703 
004737 
103404 



104456 
000160 
031761 
012172 

104406 



012700 
004737 
012704 
010465 
004737 
103407 
010001 



104455 
000161 
031540 
011670 
004737 

104406 

004737 
012701 
012702 
013721 
011211 



005000 
012701 
012702 
012703 
004737 
103404 



032604 
031012 
032702 



000020 
000040 
000200 



032662 
030772 
000024 
011322 



000001 
032544 
033010 
177776 
017220 



020064 



032604 
031012 
032702 
002256 



032662 
030772 
000022 
011322 



142S: 



150S: 



JSR PC.T17SETEXP 
NOV fT17EXSTA,R1 
NOV «T17BFSTA«R2 
NOV (P^i^.CRD^ 
NOV (R2),(R1) 
BIS fS2.INRDV«(R1) 
BIS fS2.0UTRDY,(R1 
BIC fS2.DIN,(R1) 
If Input RttdyB N0T*1 
If Output Rtady N0T»1 



CLR RO 

NOV #T17BFR.R1 

NOV fT17EXP,R2 

NOV f20.,R3 

JSR PC.CKNSG2 

BCS 140S 
NEXT.ERRNO 

132S: ERRHRD ERRN0.T173CNP,NSGSTAT 



140t: CKLOOP 



;SET WORPS 0-7 EXPD«RECV 
;6ET EXPECTED READ STATUS 
:GET RECV READ STATUS 
;SET EXPD UORD #8 ■ RECV TENP 
;SET EXPD UORD #9 « RECV TENP 
;SET EXP INPUT READY* 1 

> :SET EXP OUTPUT READY* 1 

.SET EXP DATA IN NISS « 0 

thtn Print Error 

or Data In Nits N0T«0 Thtn Print Error 
;HIGH RECV ADDRESS FOR CKNSG2 
;L0W RECV ADDRESS FOR CKNSG2 
:EXPD ADDRESS 

:NUNBER OF BYTES TO COMPARE 
:EXPD EQUAL RECV? 
;BR IF YES 



.•REPORT ERROR 

TRAP CSERHRD 

.UORD 112 

.UORD T173CNP 

.UORD NSGSTAT 
;LOOP ON ERROR. IF FLAG SET 

TRAP CSCLPl 



Do Ur Itt Subsystta READ FIFO with bytt count tqual to 1 



NOV #1 .RO 

JSR PC.T17RF1F 

NOV fT17PK2.R4 

NOV R4.TSDB(R5) 

JSR PC.CHKTSSR 

BCS 150S 

MOV R0.R1 
NEXT.ERRNO 

ERRDF ERRN0.T176SSR.PKTSSR 



:SkT READ BYTE COUNT 
.•SETUP T17PK2 FOR READ FIFO 
.•GET URITE SUBSYSTEM COMMAND PACKET 
:SET THE PACKET ADDRESS TO EXECUTE 
.-WAIT FOR SSR TO SET 
:BR IF CARRY SET (GOOD RETURN) 
;SAVE CONTENTS OF TSSR 



.•DEVICE FATAL SSR 



FAILED TO SET 
TRAP 
.UORD 
.WORD 
.UORD 



CSERDF 
113 

T176SSR 
PKTSSR 



JSR PC.FATCHK ;INC AND CHECK FOR NORE THAN 25 ERRORS 

CKLOOP .-LOOP ON ERROR. IF FLAG SET 

TRAP CSCLPl 

Stt WORDS 0'7 of txpd ■tssagt bufftr * to rtcv sinct not ttsting 
JSR PC.T17SETEXP .-SET WORDS 0-7 EXPO«RECV 

NOV fT17EXSTA.R1 ;GET EXPECTED READ STATUS 

NOV fT17BFSTA.R2 ;GET RECV READ STATUS 

MOV DATA.(RI)* ;SET EXPD WORD #8 * COUNT DATA 

MOV <R2).(R1) :SET EXPD WORD «9 * RECV (NOT TESTING) 

If Data raad froa FIFO NOT* to Data stnt Thtn Print Error 
Tht data Is In WORD #8 of tht Mssaot bufftr 



CLR 
MOV 
NOV 
MOV 
JSR 
BCS 



NEXT.ERRNO 



RO 

fTITBFR.RI 

fT17EXP.R2 

f18..RS 

PC.CKNSG2 

166s 



:HI6H RECV ADDRESS FOR CKMSG2 
;LOW RECV ADDRESS FOR CKNSG2 
;EXPD ADDRESS 

.•NUNBER OF BYTES TO CONPARE 
;EXPO EQUAL RECV? 
;BR IF YES 
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PACE 78-4 



SEO IIS 



4A26 025106 
025106 
025110 
025112 
025114 

4427 025116 
025116 

4429 

4430 025120 

4431 025124 

4432 025130 

4433 025134 

4434 025140 

4435 025142 

4436 025144 

4437 025144 
025144 
025146 
025150 
025152 

4438 025154 

4439 025160 
025160 

4440 

4441 025162 

4442 025166 

4443 025172 

4444 025176 

4445 025200 

4446 025202 

4447 025206 

4448 025212 
4449 

4450 

4451 025216 

4452 025220 

4453 025224 

4454 025230 

4455 025234 

4456 025240 

4457 025242 

4458 025242 
025242 
025244 
025246 
025250 

4459 025252 
025252 

4460 025254 

4461 025264 

4462 025270 

4463 025276 

4464 025300 

4465 025304 
4467 025304 



104456 
000162 
031665 
013564 

104406 

004737 
012704 
010465 
004737 
103407 
010001 



104455 
000163 
031364 
011670 
004737 

104406 

004737 
012701 
012702 
012221 
011211 
052711 
042711 
042711 



005000 
012701 
012702 
012703 
004737 
103404 



104456 
000164 
032045 
012172 

104406 

005237 
023727 
101002 
000137 



032422 
033010 
177776 
017220 



020064 



032604 
031012 
032702 



000020 
000040 
000200 



032662 
030772 
000024 
011322 



152S: ERRHRD ERRN0.T172CHP.NSGSUB 



160S: CKLOOP 



162S: 



170$: 



172$: 



180$: 



002256 

002256 000377 
024516 



.-REPORT ERROR 

TRAP CURHRD 

.WORD 114 

.yORO T172CNP 

.WORD nscsuB 
:LOOP ON ERROR. IF FLAG SET 



Do • Uritt Subsy«tt« READ STATUS 
JSR PC.T17SltD 
NOV fT17PK2.R4 
NOV R4.TSDB(R5) 
JSR PC.CHKTSSR 
BCS 170$ 
NOV R0.R1 
NEXT.ERRNO 

ERRDF ERRN0.T173SSR.PKTSSR 



TRAP C$CLP1 

.•SETUP PACKET FOR READ STATUS 

:6ET URITE SUBSrSTEN COHNANO PACKET 

:SET THE PACKET A<>DRESS TO EXECUTE 

;UAIT FOR SSR TO SET 

;BR IF CARRY SET (GOOD RETURN) 

.•SAVE CONTENTS OF TSSR 



:D£VICE FATAL SSR FAILED TO SET 

TRAP C$CROF 

.WORD 115 

WORD T173SSR 

.WORD PKTSSR 

JSR PC.FATCHK :INC AND CHECK FOR MORE THAN 25 ERRORS 

CKLOOP .-LOOP ON ERROR. IF FLAG SET 

TRAP C$CIP1 

Stt WORDS 0-7 of txpd Mssagt bufftr ■ to rtcv tinct not ttsting 



JSR PC.T17SETEXP 

NOV iT17EXSTA.R1 

NOV fT17BFSTA.R2 

NOV (R2)«.(R1)« 

NOV (R2>.(R1) 

BIS «S2.INRDY.(R1) 

Bit fS2.0UTROY.(R1) 
BIC 



SET WORDS 0-7 EXPD-RECV 
GET EXPECTED READ STATUS 
GET RECV READ STATUS 
SET EXPD WORD #8 « RECV TENP 
SET EXPD WORD #9 « RECV TENP 
SET EXP INPUT READYs 1 
SET EXP OUTPUT READY* 0 
SET EXP DATA IN NISS * 0 



iS2.DIN.(R1) 
If Input Rtady N0T«1 thtn Print Error 

If Output Rtady NOTsO or Datt in Niss NOT«0 Thtn Print Error 



CLR RO 

NOV «T17BFR.R1 

NOV fT17EXP.R2 

NOV #20.. R3 

JSR PC.CKNS62 

BCS 180$ 
NEXT.ERRNO 

ERRHRD ERRN0,T174CNP.NSGSTAT 



CKLOOP 



205$: 



FORCEXIT 
INC DATA 
CNP DATA.f377 
8HI 205$ 
JHP 100$ 

ENDSU8 



205$ 



:HIGH RECV ADDRESS FOR CKNSG2 
;LOV RECV ADDRESS FOR CKNS62 
;EXPD ADDRESS 

.•NUPBER OF BYTES TO COMPARE 
;EXPD EQUAL RECV? 
:BR IF YES 

.•REPORT ERROR 

TRAP 
.WORD 
.WORD 
.WORD 

:LOOP ON ERROR. IF FLAG SET 

TRAP 

*iiD 

•GET NEXT TEST DATA 
:DONE 0 TO 377? 
•BR IF YES 

•DO ANOTHER TEST PATTERN 



;//////////// END SUBTEST 1111111111 



C$ERHRD 
116 

T174CMP 
NSGSTA1 

C$CLP1 
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025304 

025304 104403 

4469 025506 005737 002170 

4470 025312 001402 

4471 025314 004737 020136 

4472 025320 



260»: 



TST 
BEQ 
JSR 



FATFL6 
2f0f 

pcakdrop 



LI 0040: 

TRAP CSESUB 

;ANY rATAL ERRORS ? 

.'BRANCH IF NOT 

.-TRY TO DROP THE UNIT 



N 9 
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SEO 117 



A475 

4476 

4477 

4478 

4479 

4480 

4481 

4482 

4483 

4484 

448S 

4486 

4487 

4488 

4489 

4490 

4491 

4492 

4493 

4494 

4495 

4496 

4497 

4498 

4499 

4500 

4501 

4502 

4503 

4504 

4505 

4506 

4507 

4508 

4509 

4510 

4511 

4512 

4513 

4514 

4515 

4516 

4517 

4518 

4519 

4520 

4521 

4522 



4523 
4524 
4525 
4526 
4527 
4528 
4529 



025320 
025320 

025320 104402 



025322 

025322 004737 
C.5326 103405 
025330 010001 
025332 



.SBTTL TEST 1: SUBTEST 3: FIFO WRITE MULTIPLE BYTES TEST 

TEST 1: SUBTEST 3: 

SUBTEST DESCRIPTION: 

This subttst verifies th^ ability of the FIFO to correctly 
pass a Multiple data bytes fro« Input to output. 
The following seouence Is done ulth various data patterns 
and byte counts from 2 to 64. 

1. Initial FIFO status Is checked 

2. The Write FIFO function. 

3. Read Status Is executed and FIFO status Is checked. 

4. Read FIFO Is executed and the data and final status 
Is checked. 

TEST STEPS: 
BEGIN 

Write to TSSR to soft Initialize 

Do a WRITE CHARACTERISTICS to setup a mssage buffer 

Do a Write Subsysten READ STATUS 

If Input Ready NOTsl Then Print Error 

If Output Ready NOTsO Then Print Error 

If Data In Hiss NOTsQ Then Print Error 

If Last Word NOTsO Then Print Error 
REPEAT FOR DATA 0 TO 377, 377 TO 0. FLOATING VS.O'S AND ALL 1*S/0'S 
REPEAT FOR BYTE COUNT 2 TO 64 DECIMAL 
BEGIN 

Do a Write Subsystem WRITE NPR to set tape direction out 

Do a Write SubsysteM WRITE FIFO 

Do a Write Subsystem READ STATUS 

If Input Ready NOTsI Then Print Error 

If Output Ready NOTsI Then Print Error 

If Data In Miss NOTsO Then Print Error 

If Last Word NOT=0 Then Print Error 

Do Write SubsysteM READ FIFO 

If Data read froM FIFO NOTs to Data sent Then Print Error 
Do a Write SubsysteM READ STATUS 



END 
END 



If Input Ready NOT si 

If Output Ready NOTsO 

If Data In Miss NOT=0 

If Last Word NOT^o 



Then Print Error 
Then Print Error 
Then Print Error 
Then Print Error 



BGNSUB 



;//////////// BEGIN SUBTEST 1111111111 
T1.3: 

TRAP CSBSUB 



016630 



Is: 



Write to TSSR register to soft initialize the controller 



JSR PCSOFINIT 

BCS 10» 

NOV R0.R1 

ERRDF ERRN0.SFIERR.SFIMS6 



;WRITE TO TSSR TO SOFT INITIALIZE 
:BR IF SOFT INIT OKAY 
:SAVE CONTENTS OF TSSR 
rPgWICg FATAL PURIMC INiT 
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SEO 11$ 



025332 
025334 
025336 
025340 

4530 

4531 025342 

4532 025346 

4533 025352 

4534 025356 

4535 025360 

4536 025362 

4537 025362 
025362 
025364 
025366 
025370 

4538 025372 

4539 025376 
025376 

4540 

4541 025400 

4542 025404 

4543 025410 

4544 025414 

4545 025420 

4546 025422 

4547 025424 

4548 025424 
025424 
025426 
025430 
025432 

4549 025434 

4550 025440 
025440 

4551 

4552 025442 

4553 025446 

4554 025452 

4555 025456 

4556 025460 

4557 025462 

4558 025466 

4559 025472 

4560 025476 
4561 

4562 
4563 

4564 025502 

4565 025504 

4566 025510 

4567 025514 

4568 025520 

4569 025524 

4570 025526 

4571 025526 
02SS26 



104455 
000164 
003550 
011656 

005037 
012704 
004737 
103407 
010001 



104455 
000165 
031263 
011670 
004737 

104406 

004737 
012704 
010465 
004737 
103407 
C10001 



002170 
032640 
010322 



020064 



032422 
033010 
177^76 
017220 



104455 




000166 




031364 




011670 




004737 


020064 


104406 




004737 


032604 


012701 


031012 


012702 


032702 


012221 




011211 




052711 


000020 


042711 


000040 


042711 


000200 


042711 


000100 



005000 
012701 
012702 
012703 
004737 
103404 



104456 



032662 
030772 
000024 
011322 



10$: 



SOS: 



62S: 



70S: 



Do a 

CLR 
NOV 
JSR 
BCS 
NOV 



WRITE wriARACTERISTICS to Sttup • Mtssagc bufftr 



TRAP 
.WORD 
.WORD 
.WORD 



CSERDF 
116 

SFIERR 
SFINSG 



FATFL6 
#T17PACICET.R4 
PCWRTCHR 
50S 
R0,R1 



NEXT.ERRNO 
42S: ERROF ERRN0,Tl7SSR,PKTSSR 



JSR 

CKLOOP 



PCFATCHK 



Do a 

JSR 
NOV 
NOV 
JSR 
BCS 
NOV 



Writt SubsysteM READ STATUS 



.•CLEAR FATAL ERROR FLAG 
:6ET THE ADDRESS OF COHNAND PACKET 
:D0 WRITE CHARACTERISTICS CONNAND 
:BR IF CARRY SET (GOOD RETURN) 
;SAVE CONTENTS OF TSSR 

;!»EVICE FATAL SSR FAILED TO SET 

TRAP CSERDr 
.WORD 117 
.WORD T17SSR 
.WORD PKTSSR 
;INC AND CHECK FOR NORE THAN 25 ERRORS 
.-LOOP ON ERROR. IF FLAG SET 

TRAP 



CSCLP1 



PC.T17SR0 
#T17PK2,R4 
R4 JSDB(R5) 
PC.CHKTSSR 
70S 
R0,R1 
NEXT.ERRNO 

ERRDF ERRN0,T173SSR,PKTSSR 



JSR 

CKLOOP 



PCFATCHK 



; SETUP PACKET FOR READ STATUS 

;GET WRITE SUBSYSTEN CONNAND PACKET 

;SET THE PACKET ADDRESS TO EXECUTE 

;WAIT FOR SSR TO SET 

:BR IF CARRY SET (GOOD RETURN) 

.'SAVE CONTENTS OF TSSR 

.•DEVICE FATAL SSR FAILED TO SET 

TRAP CSERDF 
.WORD 118 
.WORD T173SSR 
.WORD PKTSSR 
;INC AND CHECK FOR NORE THAN 25 ERRORS 
.•LOOP ON ERROR. IF FLAG SET 

TRAP 



Set WORDS 0-7 of txpd Mssage bufftr s to rtcv sinct not ttst^i^'j 



'SCLP1 



JSR PC.T17SETEXP 

NOV fT17EXSTA.R1 

NOV «T17BFSTA.R2 

NOV (R2)«.(R1)« 

NOV (R2).(R1) 

BIS »S2.INRDY.(R1) 

B!C fS2.0UTRDY.(R1) 

BIC fS2.DIH.(R1) 
BIC 



;SET WORDS 0-7 EXPD^RECV 
;GET EXPECTED READ STATUS 
.-GET RECV READ STATUS 
.-SET EXPD WORD #8 - RECV TENP 
:SET EXPD WORD »9 « RECV TENP 
:SET EXP INPUT READYs 1 
;SET EXP OUTPUT READY^ 0 
:SET EXP DATA IN NISS - 0 
:SET EXP LAST WORD (ILW)sO 



fS2.lLW.(R1) 
If Input Rtady NOTsI then Print trror 

If Output Rtady NOT^O or Data in NIss NOTsQ Thtn Print Error 
If Last Word NOTsO Thtn Print Error 



CLR RO 

NOV fT17BFR.R1 

NOV fT17EXP.R2 

NOV f20..R3 

JSR PC.CKNSG2 

BCS 90S 
NEXT ERRNO 

82S: ERRHRD ERRN0.T171CNP.NSGSTAT 



.•HIGH RECV ADDRESS FOR CKNSG2 
;LOW RECV ADDRESS FOR CKNS62 
;EXPD ADDRESS 

.NUNBER OF BYTES TO CONPARE 
:EXPD EQUAL RECV? 
:BR IF YES 



.•REPORT ERROR 



TRAP CSEBUlU) 
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SEQ 119 



025530 
025532 
025534 
4S72 025536 
025536 

4573 
4574 
4575 
4576 
4577 
4578 
4579 

4580 025540 

4581 025546 

4582 U25546 

4583 025554 
4584 

4585 025554 

4586 025560 

4587 025564 

4588 025570 

4589 025574 

4590 025600 

4591 025602 

4592 025604 

4593 025604 
025604 
025606 
025610 
025612 

4594 025614 

4595 025620 
025620 

4596 

4597 025622 

4598 025626 

4599 025632 

4600 025636 

4601 025644 

4602 025646 

4603 025650 

4604 025652 

4605 025654 

4606 025656 

4607 025660 

4608 025666 

4609 025670 

4610 025674 

4611 025676 

4612 025700 

4613 025702 
46U 025704 

4615 025712 

4616 025714 

4617 025720 

4618 025722 



000167 
031603 
012172 

104406 



012737 
012737 



012700 
004737 
012704 
010465 
004737 
103407 
010001 



104455 
000170 
031431 
011670 
004737 

104406 

004737 
012701 
013702 
022737 
001005 
005000 
110021 
005200 
005302 
003374 
022737 
001006 
012700 
110021 
005300 
005302 
003374 
022737 
001005 
012700 
112021 
005302 
Mn7% 



90$: CKLOOP 



.WORD 119 

.WORD T171CNP 

.WORD NSCSTAT 
.'LOOP ON ERROR, IF FLAG SET 

TRAP C$CLP1 



000001 002260 

000002 002254 



000100 
032464 
033010 
177776 
017220 



REPEAT FOR BYTE COUNT 2 TO 64 DECIMAL 
TSTFLAG -1 FOR INCREMENT TEST PATTERN 
•2 FOR DECREMENT TEST PATTERN 
«3 FOR TSTBLK TABLE PATTERN 
fIJSTFLAG 



95$: 
100$: 



102$: 



020064 



032564 
031114 
002254 

000001 002260 



105$: 



000002 002260 
000377 

000003 002260 
002720 



110$: 



115$: 



120$: 



125$: 



130$: 



NOV 
MOV 



«2, COUNT 



Do a Writ* Subsystem WRITE NPR 

NOV fNP.OUT.RO 

JSR PC.T17SNPR 

NOV iT17PK2.R4 

NOV R4,TSDB(R5) 

JSR PC.CHKTSSR 

BCS 105$ 

NOV R0.R1 

NEXT.ERRNO 

ERRDF ERRN0,T174SSR,PKTSSR 



JSR 

CKLOOP 



PC.FATCHK 



Do • Uritt Subsystta WRITE FIFO 

JSR PC«T17CLEXP 

NOV fTITWF^ATA.RI 

NOV COUNT, R2 

CNP f1 .TSTFLAG 

BNE 115$ 

CLR RO 

NOVB R0.(R1>« 

INC RO 

DEC R2 

BGT 110$ 

CNP #2, TSTFLAG 

BNE 125$ 

NOV f377.R0 

NOVB R0.(R1)« 

DEC RO 

DEC R2 

BGT 120$ 

CNP f3.TSTFLAG 

BNE 135$ 

NOV f TSTBLK. RO 

NOVB (II0)».(R1)« 

DEC R2 

BGT 130$ 



;TEST PATTERN FLAG 

;6ET FIRST BYTE COUNT 

to s«t tapt dfractlon out 
.-SET TAPE DIRECTION OUT 
; SETUP T17PK2 FOR WRITE NPR 
;6ET WRITE SUBSYSTEN CONNAND PACKET 
:SET THE PACKET ADDRESS TO EXECUTE 
;WAI1 FOR SSR TO SET 
:BR IF CARRY SET (GOOD RETURN) 
;SAVE CONTENTS OF TSSR 

.•DEVICE FATAL SSR FAILED TO SET 

TRAP C$ERDF 

.WORD 120 

.WORD T174SSR 

.WORD PKTSSR 

THAN 25 ERRORS 
SET 

TRAP C$CLP1 



:INC AND CHECK FOR MORE 
;LOOP ON ERROR. IF FLAG 



CLEAR EXPD BUFFER 

EXPD WRITE FIFO DATA BUFFER 

TEST PATTERN SIZE 

INCREMENT PATTERN THIS TIME THRU? 

BR IF NO 

INCREMENT TEST PATTERN 
STORE INCREMENT TEST BYTE 
SET NEXT PATTERN 
DONE? 
BR IF NO 

OECRENENT PATTERN THIS TINE THRU? 
BR IF NO 

DECRENEF.T TEST PATTERN 
STORE OECRENENT TEST BYTC 
SET NEXT PATTERN 
DONE? 
BR IF NO 

TSTBLK PATTERNS THIS TINE THRU? 
BR IF NO 

FLOAT VS/0*S ETC. TEST TABLE 
STORE A TSTBLK BYTE 
DONE? 
BR IF NO 
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SEO 120 



4620 02S726 

4621 025726 

4622 025732 

4623 025736 

4624 02574? 

4625 025746 

4626 025752 

4627 025756 

4628 025760 

4629 025762 

4630 025762 
025762 
025764 
025766 
025770 

4631 025772 

4632 025776 
025776 

4633 
4634 

4635 026000 

4636 026004 

4637 026010 

4638 026014 

4639 026020 

4640 026022 

4641 026024 

4642 026024 
026024 
026026 
026030 
026032 

4643 026034 

4644 026040 
026040 

4645 
4646 

4647 026042 

4648 026046 

4649 0260S2 

4650 026056 

4651 026060 

4652 026062 

4653 026066 

4654 026072 

4655 026076 
4656 

4657 

46Sa 026102 

4659 026104 

4660 026110 

4661 026114 

4662 026120 

4663 026124 

4664 026126 

4665 026126 



013700 
012701 
004737 
012704 
010465 
004737 
103407 
010001 



104455 
000171 
031474 
011670 
004737 

104406 



004737 
012704 
010465 
004737 
103407 
010001 



002254 
0311U 
032510 
033010 
177776 
017220 



020064 



032422 
033010 
177776 
017220 



104455 
000172 
031364 
011670 

004737 020064 



104406 



004737 
012701 
012702 
012221 
011211 
052711 
052711 
042711 
042711 



005000 
012701 
012702 
012703 
004737 
10S404 



032604 
031012 
032702 



000020 
000040 
000200 
000100 



032662 
030772 
000024 
011322 



13SS: 



142S: 



150S: 



157$: 



1608: 



rav COUNT, RO 

HOV «T17UFDATA,R1 

JSR r'".T17«FIF 

NOV iT1fPK2.R4 

HOV R4.TSDB(R5) 

JSR PCCHKTSSR 

BCS 150S 

NOV RO.RI 
NEXT.ERRNO 

ERROF ERRNO.T175SSR.PKTSSR 



JSR 

CKLOOP 



PC.FATCNK 



.'FIFO BYTE COWT 

.-FIFO WRITE DATA ADDRESS 

; SETUP T17PK2 FOR WRITE FIFO 

;GET WRITE SUBSYSTEM COMMAND PACKET 

;SET THE PACKET ADDRESS TO EXECUTE 

:WAIT FOR SSR TO SET 

:6R IF CARRY SET (GOOD RETURN) 

.SAVE CONTENTS OF TSSR 

.•DEVICE FATAL SSR FAILED TO SET 

TRAP CtERDF 

.WORD 121 

.WORD T175SSR 

.WORD PKTSSR 

;INC AND CHECK FOR MORE THAN 25 ERRORS 

.•LOOP ON ERROR. IF FLAG SET 

TRAP CtCLPI 



Do • Writ* SubsystM READ STATUS 



JSR PC.T17SRD 

rav iT17PK2.R4 

rav R4.TSDB(R5) 

JSR PC.CHKTSSR 

BCS 1608 

rav R0.R1 
NEXT.ERRM 

ERRDF ERRm.T173SSR.PKTSSR 



JSR 

CKLOOP 



PC.FATCKK 



.•SETUP PACKET FOR READ STATUS 
;6ET WRITE SUBSYSTEM COMMAND PACKET 
;SET THE PACKET ADDRESS TO EXECUTE 
.•WAIT FOR SSR TO SET 
;BR IF CARRY SET (GOOD RETURN) 
.-SAVE CONTENTS OF TSSR 

.•DEVICE FATAL SSR FAILED TO SET 

TRAP CSERDF 

.WORD 122 

.WORD T173SSR 

.WORD PKTSSR 

;INC AND CHECK FOR raRE THAN 25 ERRORS 

.•LOOP ON ERROR. IF FLAG SET 

TRAP C8CLP1 



Stt WORDS 0-7 of expd Mtssagt buffer * to r«cv sine* not ttsting 



JSR PC,T17SETEXP 

rav fT17EXSTA.R1 

rav #T17BFSTA.R2 

rav (R2)«.(R1)« 

rav (R2).(R1) 

BIS fS2.INRDT.(R1) 

BIS #S2.0UTRDY.(R1) 

BIC fS2.DIN.(R1> 

BIC fS2.ILW.(R1) 



.-SET WORDS 0-7 EXPD>i«ECV 
.-GET EXPECTED READ STATUS 
;6ET RECV READ STATUS 
:SET EXPO WORD #8 * RECV TEMP 
.-SET EXPD WORD #9 « RECV TEMP 
:SET EXP INPUT READY* 1 
;SET EXP OUTPUT READY* 1 
:SET EXP DATA IN HISS * 0 
.•SET EXP .LAST WORD (iLW)sO 



If Input Rtady N0T=1 then Print irrur 

If Output Retdy MT^I or Data In Miss NOTsO Then Print Error 



CLR RO 

rav fTITBFR.RI 

rav fT17EXP.R2 

rav #20.. R3 

JSR PC.CKHS62 

BCS 170S 
NEXT ERRNO 

1628: ERRHRD ERRW.n73CRP.HS6STAT 



;HI6H RECV ADDRESS FOR CKMSG2 
:LOU RECV ADDRESS FOR CKNSG2 
:EXPD ADDRESS 

;NUmER OF BYTES TO COMPARE 
.EXPD EQUAL RECV? 
;BR IF YES 



.•REPORT ERROR 



T£Ap CIEBHRD 
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026130 
026132 
026134 
4666 026136 
026136 

4667 
4668 

4669 026140 

4670 026144 

4671 0261 SO 

4672 026154 

4673 026160 

4674 026164 

4675 026166 

4676 026170 

4677 026170 
026170 
026172 
026174 
026176 

4678 026200 

4679 026204 
026204 

4680 
4681 

4682 026206 

4683 026210 

4684 026214 

4685 026220 

4686 026224 

4687 026230 

4688 026232 

4689 026232 

4690 026236 
026236 
026240 
026242 
026244 

4691 026246 
026246 

4692 
4693 

4694 026250 

4695 026254 

4696 026260 

4697 026264 

4698 02627C 

4699 026272 

4700 026274 

4701 026274 
026274 
026276 
026300 
026302 

4702 026304 

4703 026310 



000173 
031761 
012172 

104406 



013700 
004737 
012704 
010465 
004737 
103407 
010001 



104455 
000174 
031540 
011670 
004737 

104406 



005000 
012702 
012701 
013703 
004737 
103406 



170$: CKLOOP 



002254 
032544 
033010 
177776 
017220 



172t: 



020064 



180S: 



031114 
032702 
002254 
011322 



013701 002254 

104456 
000175 
032130 
012012 



104406 



004737 
012704 
010465 
004737 
103407 
010001 



104455 
000176 
031364 
011670 
004737 

1/Ui.AA 



032422 
033010 
177776 
017220 



212$: 



020064 



Do yrit* SubsystM READ FIFO 

nOV COUNT.RO 

JSR PC,T17RFIF 

flOV fT17PK2,R4 

HOV R4.TSDB(R5) 

JSR PCCHKTSSR 

BCS 180$ 

MOV R0.R1 

NEXT.ERRNO 

ERROF ERRN0.T176SSR.PKTSSR 



JSR 

CKLOOP 



PCFATCNK 



.WORD '23 

.mCt) T173CMP 

.WORD NS6STAT 
:LOOP ON ERROR. IF FLAG SET 

TRAP C$CLP1 



:SET READ BYTE COUNT 

;SETUP T17PK2 FOR READ FIFO 

;6ET VRITE SUBSYSTEM COMMAND PACKIT 

:SET THE PACKET ADDRESS TO EXECUTE 

:UAIT FOR SSR TO SET 

:BR IF CARRY SET (GOOD RETURN) 

.'SAVE CONTENTS OF TSSR 

.•DEVICE FATAL SSR FAILED TO SET 

TRAP C$ERDF 

.WORD 124 

.WORD T176SSR 

.WORD PKTSSR 

;INC AND CHECK FOR MORE THAN 25 ERRORS 

;LOOP ON ERROR, IF FLAG SET 



TRAP C$CLP1 



If Data rtad froa FIFO NOTs to 



CLR RO 

MOV ffT17WFDATA.R2 

MOV «T17BFSTA.R1 

MOV COUNT. R3 

JSR PC.CKMS62 

BCS 200$ 
NEXT.ERRNO 

192$: MOV COUNT. R1 

ERRHRD ERRN0.T17SCNP.FIFEXP 



Data stnt Than Print Error 
:HIGH RECV ADDRESS FOR CKMSG2 
.GET EXPECTED ADDRESS FOR CKMSG2 
;GET RECEIVED ADDRESS FOR CKMSG2 
: NUMBER OF BYTES TO COMPARE 
;EXPD EQUAL RECV? 
;BR IF YES 



.GET BYTE COUNT 
.•REPORT ERROR 



200$: CKLOOP 



.•LOOP ON ERROR. IF 



TRAP 
.WORD 
.WORD 
.WORD 
FLAG SET 



CSERHRD 
125 

T175CMP 
FIFEXP 



TRAP C$CLP1 



Do a 

JSR 
MOV 
MOV 
JSR 
BCS 
NOV 



Writt SubsysttM READ STATUS 



PC,T17SRD 
ffT17PK2.R4 
R4.TSDB(R5) 
PC.CHKTSSR 
220$ 
R0.R1 
NEXT.ERRNO 

ERRDF ERRNO.T173SSR.PKTSSR 



220$: 



JSR 

CKLOOP 



PC.FATCNK 



.•SETUP PACKET FOR READ STATUS 

;6ET WRITE SUBSYSTEM COMMAND PACKET 

.•SET THE PACKET ADDRESS TO EXECUTE 

.•WAIT FOR SSR TO SET 

;BR IF CARRY SET (GOOD RETURN) 

;SAVE CONTENTS OF TSSR 

.•DEVICE FATAL SSR FAILED TO SET 

TRAP C$ERDF 
.WORD 126 
.WORD T173SSR 
.WORD PKTSSR 

.INC AND CH^:k for MORE THAN 25 ERRORS 

fkOOP ON ERROR. IF FLAG SET 

MAP tiCLFl 



S£0 12' 
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SEQ 12? 



4704 

4705 026312 
470e 026316 

4707 026322 

4708 026326 

4709 026330 

4710 026332 

4711 026336 

4712 026342 

4713 026346 
4714 

4715 

4716 026352 

4717 026354 
471B 026360 

4719 026364 

4720 026370 

4721 026374 

4722 026376 

4723 026376 
026376 
026400 
026402 
026404 

4724 026406 
026406 

4725 026410 

4726 026420 

4727 026424 

4728 026432 

4729 026434 

4730 026440 

4731 026444 

4732 026452 

4733 026454 

4734 026460 

4735 026460 
026460 
026460 

4736 

4737 026462 

4738 026466 

4739 026470 

4740 026474 
4741 

4742 
4743 



004737 
012701 
012702 
012221 
011211 
052711 
042711 
042711 
042711 



005000 
012701 
012702 
012703 
004737 
103404 



104456 
000177 
032045 
012172 

104406 

005237 
023727 
101002 
000137 
005237 
025727 
101002 
000137 



104403 

005737 
001402 
004737 



032604 
031012 
032702 



000020 
000040 
000200 
000100 



032662 
030772 
000024 
011322 



002254 

002254 000077 

025554 
002260 

002260 000003 
025546 



250S: 
2S5S: 



002170 
020136 



260S: 



Sft yOR^i 0-7 of txpd Mssagt bufftr * to rtcv tinct not tttting 



JSR PC.T17SETEXP 

NOV iT17EKSTA,R1 

mv n7BFSTA.R2 

NOV (R2i*.(R1)« 

NOV (R2).(R1) 

BIS fS2.lNRDY.(R1) 

BIC «S2.0UTRDV.(R1) 

BIC fS2.DIH.(R1) 

BK fS2.ILy.(R1) 
If Input Rtady N0T«1 thtn Print 



SET WORDS 0-7 EXPD-RECV 
GET EXPECTED READ STATUS 
GET RECV READ STATUS 
SET EXPD WORD «8 « RECV TENP 
SET EXPD WORD #9 « RECV TENP 
SET EXP INPUT READY* 1 
SET EXP OUTPUT READY* 0 
SET EXP DATA IN NISS « 0 
SET EXP LAST WORD (ILW)*0 
Error 



If Output Rtady NOT«0 or Data In Hits NOT«0 Thtn Print Error 



CLR RO 

NOV fT17BFR.R1 

NOV fT17EXP.R2 

NOV #20.. R3 

JSR PC.CKNSC2 

BCS 2408 
NEXT.ERRNO 

2328: ERRHRD ERRN0.T174CHP.NSGSTAT 



2408: CKLOOP 

FORCEXIT 
INC 
CNP 
BHI 
JMP 
INC 
CNP 
BHI 
JHP 



2508 



COUNT 
COUNT, #77 
2508 
1008 
TSTFLAG 
TSTFLA6.#3 
2558 
958 



ENDSUB 



TST 
BED 
JSR 



FATFLG 
2608 

PC.CKDROP 



;HI6N RECV ADDRESS FOR CKNSG2 
:LOW RECV ADDRESS FOR CKNSG2 
:EXPD ADDRESS 

;NUHBER OF BYTES TC CONPARE 
;EXPD EOUAL RECV? 
:BR IF YES 

.-REPORT ERROR 

TRAP 
.WORD 
.WORD 
.WORD 

:LOOP ON ERROR. IF FLAG SET 

TRAP 

;BilD 

;6ET NEXT BYTE COUNT 
;DONE 0 TO 77 
;BR IF YES 

;D0 ANOTHER BYTE COUNT 
:GET NEXT TEST PATTERN CODE 
:D0NE INC.DEC.TSTBLK PATTERNS? 
:BR IF YES 

:D0 ANOTHER TEST PATTERN 



;//////////// END SUBTEST ////////// 
L10041 : 

TRAP C8ESUB 



C8ERNRD 

127 

T174CNP 
HSGSTAT 

C8CLP1 



:ANY FATAL ERRORS ? 

.•BRANCH IF NOT 

:TRY TO DROP THE UNIT 



6 10 
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4745 

4746 

4747 

4748 

4749 

4750 

4751 

4752 

4753 

4754 

4755 

4756 

4757 

4758 

4759 

4760 

4761 

4762 

4763 

4764 

4765 

4766 

4767 026474 
026474 
026474 

476S 
4769 

4770 026476 

4771 026«76 

4772 026502 

4773 026504 

4774 026506 
026506 
026510 
026S12 
0265U 

4775 

4776 026516 

4777 026522 

4778 026526 

4779 026532 

4780 026534 

4781 026536 

4782 026536 
026536 
026S40 
026S42 
026S44 

4783 026546 

4784 026552 
026552 

4785 
4786 

4787 026554 

4788 026560 

4789 026564 

4790 OM570 



104402 



004737 
103405 
010001 

104455 
000177 
003550 
011656 

005037 
012704 
004737 
103407 
010001 



104455 
000200 
031263 
011670 
004737 

104406 



012700 
004737 
012704 
010465 
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.SBTTL TEST 1: SUBTEST 4; FIFO Vtrify RU SUtus 



SEO 123 



TEST 1: SUBTEST 4; 

SUBTEST DESCRIPTION: 

This subttst vtrlfits that rtadfng tht FIFO whtn It Is 
Mpty causts tht Last Word (ILU) status to assart. 

TEST STEPS: 



BEGIN 



END 



Uritt to TSSR to soft InltlaUzt 

Do Uritt Subsystta READ FIFO with bytt count tqual to 1 
Do a Uritt SubsysttM READ STATUS 
If Input Rtady N0T«1 Than Print Error 
If Output Rtady NOT^O Than Print Error 
If Data In Hiss NOT«0 Than Print Error 
If Last Uord (ILU) N0T«1 Than Print Error 



BGNSUB 



;//////////// BEGIN SUBTEST ////////// 
T1.4: 

TRAP CSBSUB 



016630 



5$: 



Uritt to TSSR rtglsttr to soft Inlclallxa tht controlltr 



JSR PCSOFINIT 

BCS 10S 

NOV R0.R1 

ERRDF ERRNO.SFIERR.SFIHSG 



002170 
032640 
010322 



10$: 



428: 



Do a WRITE CHARACTERISTICS 

CLR FATFL6 

HOV fTl7PACKET«R4 

JSR PC.URTCMR 

BCS 50$ 

HOV R0*R1 

NEXT.ERRNO 

ERRDF ERRN0.T17SSR,PKTSSR 



CtERDF 
127 

SFIERR 
SFIHSG 



020064 



000001 
032544 
033010 
177776 



508: 



JSR 

CKLOOP 



PC.FATCHK 



;URITE TO TSSR TO SOFT INITIALIZE 
;BR IF SOFT INIT OKAY 
;SAVE CONTENTS OF TSSR 
.•DEVICE FATAL DURING INIT 

TRAP 
.UORD 
.UORD 
.UORD 

to sttup a Mssagt bufftr 

.•CLEAR FATAL ERROR FLAG 
.-GET THE ADDRESS OF COHHAND PACKET 
:D0 URITE CHARACTERISTICS COHHAND 
;BR IF CARRY SET (GOOD RETURN) 
;SAVE CONTENTS OF TSSR 

:DEVICE FATAL SSR FAILED 10 SET 

TRAP CKRDF 

.UORD 128 

.UORD T17SSR 

.UORD PKTSSR 

:INC AND CHECK FOR HORE THAN 25 ERRORS 
;LOOP ON ERROR, IF FLAG SET 

TRAP CtCLPI 



Do Uritt Subsystto READ FIFO with bytt count tqual to 1 



HOV 
JSR 
HOV 
HOV 



fl.RO 
PCJ17RFIF 
fT17PK2,R4 
R4.TSDB(RS) 



SEt READ BYTE COUNT 
SETUP T17PK2 FOR READ FIFO 
GET URITE SUBSYSTEH COHHAND PACKET 
SFT THg PACtfT ADDRESS ID tlECUIt 
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SEO 124 



47ri 026574 
4m 026600 

4793 026602 

4794 026604 

4795 026604 
026604 
026606 
026610 
026612 

4796 026614 

4797 026620 
026620 

4798 
4799 

4800 026622 

4801 026626 

4802 026632 

4803 026636 

4804 026642 

4805 026644 

4806 026646 

4807 026646 
026646 
026650 
026652 
026654 

4808 026656 

4809 026662 
026662 

4810 

4811 026664 

4812 02:«670 

4813 026674 

4814 026700 
*.815 026702 

4816 026704 

4817 026710 

4818 026714 

4819 026720 
4820 

4821 
4822 

4823 026724 

4824 026726 

4825 026732 

4826 026736 

4827 026742 

4828 026746 

4829 026750 

4830 026750 
026750 
026752 
026754 
026756 

4831 026760 
026760 

4832 



004737 
103407 
010001 



104455 
000201 
031540 
011670 
004737 

104406 



004737 
012704 
010465 
004737 
103407 
010001 



017220 



U2S: 



005000 
012701 
012702 
012703 
004737 
103404 



104456 
000203 
032204 
012172 

104406 



020064 



032422 
033010 
177776 
017220 



150S: 



104455 




000202 




031364 




011670 




004737 


020064 


104406 




004737 


032604 


012701 


031012 


012702 


032702 


012221 




011211 




052711 


000020 


042711 


000040 


042711 


000200 


052711 


000100 



162S: 



170$: 



032662 
030772 
000024 
011322 



PC.CHKTSSft 
150$ 



JSR 
BCS 

NOV R0.R1 
NEXT.ERRNO 
ERRDF ERRMO.T176SSR.PlCTSSft 



JSR 

CKLOOF 



PC.FATCHK 



.WAIT FOR SSR TO SET 

;8R IF CARRY SET (6000 RETURN) 

.-SAVE CONTENTS OF TSSR 

; DEVICE FATAL SSR FAILED TO SET 

TRAP C$€ROF 
.yORD 129 
.WORD T176SSR 
.WORD PKTSSR 

;INC AND CHECK FOR MORE THAN 25 ERRORS 

;LOOP ON ERROR. IF FLAG SET 

TRAP C$CLP1 



Do • Wrltt Subtyttta READ STATUS 



JSR PC.T17SftD 

NOV fT17PK2.R4 

NOV R4,TS0B(R5) 

JSR PC.CHKTSSR 

BCS 170$ 

NOV R0.R1 
NEXT.ERRNO 

ERRDF ERRN0.T173SSR.PKTSSR 



; SETUP PACKET FOR READ STATUS 
;6ET WRITE SUBSVSTEN CONNAND PACKET 
;SET THE PACKET ADDRESS TO EXECUTE 
;WAIT FOR SSR TO SET 
;6R IF CARRY SET (GOOD RETURN) 
;SAVE CONTENTS OF TSSR 

.'DEVICE FATAL SSR FAILED TO SET 

TRAP CSERDF 
.WORD 130 
.WORD T173SSR 
WORD PKTSSR 

JSR PC.FATCHK ;INC AND CHECK FOR NORE THAN 25 ERRORS 

CKLOOP .-LOOP ON ERROR. IF FLAG SET 

TRAP C$CLP1 

Stt WORDS 0-7 of txpd Mssaat bufftr * to rtcv tinct not ttstlng 

.-SET WORDS 0-7 EXPD«RECV 



JSR PC.T17SETEXP 

NOV fTITEXSTA.RI 

NOV ffT17BFSTA.R2 

NOV (R2)«.(Rt)* 

NOV (R2).(R1) 

BIS fS2.INRDY.(R1) 

BIC fS2.0UTR0Y.(Rl) 

BJC fS2.DIH.(R1) 

BIS fS2.aw.(R1) 



:6ET EXPECTED READ STATUS 

;6ET RECV READ STATUS 

:SET EXPD WORD #8 « RECV TENP 

;$ET EXPD WORD #9 « RECV TENP 

.'SET EXP INPUT READY« 1 

:SET EXP OUTPUT READY* 0 

;SET EXP DATA IN HISS « 0 

:SET EXP LAST WORD (ILW>«1 



If Input R««dy N0T«1 thtn Print Error 
If Oufmt Rtody NOTsO or Data in Niss NOT«0 Thtn Print Error 
If LMw Word (ILW) N0T*1 Thtn Print Error 



CLR RO 

NOV fTITBFR.RI 

NOV fT17EXP.R2 

NOV #20. .R3 

JSR PC.CKNS62 

BCS 180$ 

NEXT ERRNO 
172$: ERRHRD ERRN0.T176CNP.NS6SrAT 



180$: CKLOOP 



;HI6H RECV ADDRESS FOR CKNS62 
;LOW RECV ADDRESS FOR CKNSG2 
:EXPD ADDRESS 

;NUNBER OF BYTES TO CONPARE 
;EXPD EQUAL RECV? 
:8R IF YES 



.•REPORT ERROR 



.•LOOP ON ERROR. IF 



TRAP 
.WORD 
.WORD 
.WORD 
FLAG SET 
TRAP 



C$ERHRD 

131 

T176CHP 
NS6STAT 

C$CLP1 



I 10 



CZTUXAO TU60 FRONT END PDT • nACRO 111200 
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4633 026762 
026762 
026762 

4S34 

4835 026764 

4836 026770 

4837 026772 

4838 026776 
4839 

4840 



104403 

005737 
001402 
004737 
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ENPSUB 



002170 
020136 



260S: 



TST 
BEQ 
JSR 



FAT>lG 
260S 

PC«CKDR3P 



;//////////// {ND SUBTEST ////////// 
L10042: 

TBAP CSCSUB 

;ANY FATAL EMKNIS ? 

.•BRANCH IF NOT 

;TRY TO DROP THE UNIT 



J 10 



CZTUXAO TU80 FRONT END PUT B HACAO m200 
TEST 1: SUBTEST 5: FIFO VEMIFV INf>UT RE40V 



4843 

4844 

4845 

4846 

4847 

4848 

4849 

48S0 

4851 

4852 

4853 

4854 

4855 

4856 

4857 

4858 

4859 

4860 

4861 

4862 

4863 

4864 

4865 

4866 

4867 

4868 

4869 

4870 

4871 

4872 

4873 

4874 

48/5 

4876 

4877 

4878 

4879 

4880 026776 
026776 
026776 

4881 
4882 

4883 027000 

4884 027000 

4885 027004 

4886 027006 

4887 027010 
027010 
027012 
027014 
027016 

4888 

4889 027020 

4890 027024 

4891 027030 

4892 027034 
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.SBTTL TEST 1: SUBTEST 5: FI?0 Vtrify Input Rtady 



SEQ 126 



*TEST 1: SUBTEST 5; 

SUBTEST DESCRIPTION: 

Thft subtttt vtrifitt that writing 64. byttt Into tht FIFO 
without rtadlng any out causts tht Input Rtady status to 
ntgatt. Tht Subttst than varfllas that writing a 65th bytt 
Into tht FIFO causts tht Data In Nits status to assart. 
Ntxt It Is vtrlfltd that tht orlolnal 64 bytts can bt rtad 
out corrtctly and that tht data has not bttn corrupttd. 

TEST STEPS: 



BE6IN 



END 



Uritt to TSSR to soft Inltlallzt 

Do a URITE CHARACTERISTICS to sttup a Mssagt bufftr 

Do a Writt Subsystta URITE NPR to stt tapt dirtctlon out 

Do a Uritt SubtysttP URITE FIFO 64. bytts Incrtntntlng patttrn 

Do a Uritt Subsystta READ STATUS 

If Input Rtady NOT«0 Than Print Error 

If Output Rtady N0T«1 Than Print Error 

If Data In Hiss NOT«0 Than Print Error 

Do a Uritt Subsystta URITE FIFO 1 bytt for a total of 65. writttn 

Do a Uritt Subsystta READ STATUS 

If Input Rtady NOT«0 Than Print Error 

If Output Rtady N0T«1 Thtn Print Error 

If Data In Hist N0T«1 Thtn Print Error 

Do Uritt Subsystta READ FIFO 

If Data rtad froa FIFO NOT« to Data sant Thtn Print Error 

Do a Uritt Subsystta READ STATUS 

If Input Rtady N0T«1 Thtn Print Error 

If Output Rtady NOTsO Than Print Error 

If Data In Hiss N0T>1 Than Print Error 



BGNSUB 



104402 



004737 016630 

103405 

010001 

104455 
000203 
003550 
011656 

005037 002170 
012704 032640 
004737 010322 
103407 



h: 



10$: 



;//////////// BEGIN SUBTEST 1111111111 
T1.5: 

TRAP CSBSUB 



Uritt to TSSR rtglsttr to soft Inltlallzt tht controlltr 



JSR PCSOFINIT 

BCS 10$ 

HOV RO.RI 

ERRDF ERRNO.SFIERR.SFINSG 



Do a URITE CHARACTERISTICS to 

CLR FATFLG 

HOV fT17PACKET.R4 

JSR PC.URTCHR 

BCS 50i 



INITIALIZE 



.-URITE TO TSSR TO SOFT 

:BR IF SOFT INIT OKAY 

.SAVE CONTENTS OF TSSR 

.•DEVICE FATAL DURING INIT 

TRAP 
.UORD 
.UORD 
.UORD 

Sttup a atssagt bufftr 
CLEAR FATAL ERROR FLAG 
GET THE ADDRESS OF COHHAND PACKET 
00 URITE CHARACTERISTICS COHHAND 
ft If fABBT \\\ frfy^ 



CSERDF 
131 

SFIERR 
SFIHSG 



CZTUXAO TU80 FRONT END PRT B HACRO NIZOO 
TEST 1: SUBTEST S: FIFO VERIFY INPUT READY 



4893 027036 

4894 027040 

4895 027040 
027040 
027042 
027044 
027046 

4896 027050 

4897 027054 
027054 

4898 
4899 

4900 027056 

4901 027062 

4902 027066 

4903 027072 

4904 027076 

4905 027102 

4906 027104 

4907 027106 

4908 027106 
027106 
027110 
027112 
0271 U 

4909 027116 

4910 027122 
027122 

4911 
4912 

4913 027124 

4914 027132 

4915 027136 

4916 027142 

4917 027144 

4918 027146 

4919 027150 

4920 027152 

4921 027154 

4922 027160 

4923 027164 

4924 027170 

4925 027174 

4926 027200 

4927 027204 

4928 027206 

4929 027210 
49S0 027210 

027210 
027212 
027214 
027216 

4931 027220 

4932 027224 
027224 

4933 
4934 



010001 



104455 
000204 
031263 
011670 
004737 

104406 



012700 
004737 
012704 
010465 
004737 
10J'07 
OlOUvl 



104455 
000205 
031431 
011670 
004737 

104406 



012737 
012701 
012702 
005000 
110021 
005200 
005302 
003374 
013700 
012701 
004737 
012704 
010465 
004737 
103407 
010001 



104455 
000206 
031474 
011670 
004737 

194406 



42$: 



K 10 
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NOV R0.R1 
NEXT.ERRNO 

ERRDF ERRN0.T17SSR.PKTSSR 



SEO 127 



020064 



000100 
032464 
033010 
177776 
017220 



50$: 
100$: 



102$: 



020064 



000100 002254 

031114 

000100 



105$: 



110$: 



002254 
031114 
032510 
033010 
177776 
017220 



142$: 



020064 



150$: 



JSR PC.FATCHK 
CKLOOP 



Do • Writ* SubsysttM WRITE NPR 

NOV «NP.OUT,RO 

JSR PC.T17SNPR 

NOV fT17PK2.R4 

NOV R4JS0B(R5> 

JSR PC.CNKTSSR 

BCS 105$ 

NOV R0.R1 

NEXT.ERRNO 

ERRDF ERRN0.T174SSR.PKTSSR 



JSR 
CKLOOP 



PCFATCHK 



.'SAVE CONTENTS OF TSSR 

;DEVICE FATAL SSR FAILED TO SET 

TRAP CSERDF 
.VORD 132 
.UORD T17SSR 
.yORD PKTSSR 

:INC AND CHECK FOR NORE THAN 25 ERRORS 

:L0OP ON ERROR, IF FLAG SET 

TRAP CSCLPI 

to ttt tapt dirtctlon out 
SET TAPE DIRECTION OUT 
SETUP T17PK2 FOR WRITE NPR 
GET WRITE SUBSYSTEM CONNAND PACKET 
SET THE PACKET ADDRESS TO EXECUTE 
WAIT FOR SSR TO SET 
BR IF CARRY SET (GOOD RETURN) 
SAVE CONTENTS OF TSSR 

:DEVICE FATAL SSR FAILED TO SET 

TRAP C$ERDF 
.WORD 133 
.WORD T174SSR 
.WORD PKTSSR 

;INC AND CHECK FOR NORE THAN 25 ERRORS 

:LUOP ON ERROR. IF FLAG SET 

TRAP C$CLP1 



Do a Writt SubtysttM WRITE FIFO 

NOV #64.. COUNT 

NOV ffT17WFDATA.R1 

NOV #64.. R2 

CLR RO 

NOVB R0.(R1>^ 

INC RO 

DFC R2 

B6T 110$ 

MOV COUNT. RO 

MOV #T17UFDATA.R1 

JSR PC.T17WFIF 

NOV #T17PK2.R4 

NOV R4.TSDB(R5> 

JSR PC.CNKTSSR 

BCS 150$ 

MOV R0.R1 
NEXT.ERRNO 

ERRDF ERRN0.T175SSR.PKTSSR 



64. byttt Incrtntntlng patttrn 

.•WRITE 64 BYTES 

:EXPD WRITE FIFO DATA BUFFER 

:TEST PATTERN SIZE 

.-INCREMENT TEST PATTERN 

.STORE INCREMENT TEST BYTE 

:SET NEXT PATTERN 

;CONE? 

:BR IF NO 

.-FIFO BYTE COUNT 

.-FIFO WRITE DATA ADDRESS 

.•SETUP T17PK2 FOR WRITE FIFO 

.GET WRITE SUBSYSTEM COMMAND PACKET 

.-SET THE PACKET ADDRESS TO EXECUTE 

.-WAIT FOR SSR TO SET 

;BR IF CARRY SET (GOOD RETURN) 

.•SAVE CONTENTS OF TSSR 



JSR 

CKLOOP 



PC.FATCHK 



.•DEVICE FATAL SSR FAILED TO SET 

TRAP C$ERDF 
.WORD 134 
.WORD T17SSSR 
.WORD PKTSSR 

:INC AND CHECK FOR MORE THAN 25 ERRORS 

;LOOP ON ERROR. IF FLAG SET 

TRAP C$CLP1 



Do > Wrttt Subtvtt— READ STATUS 



L 10 
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SEO 12B 



<.93S 
<.936 
4957 

4938 027226 

4939 027232 

4940 027236 

4941 027242 

4942 027246 

4943 027250 

4944 0272S2 

4945 027252 
027252 
027254 
027256 
027260 

4946 027262 

4947 027266 
027266 

4948 

4949 027270 

4950 027274 

4951 027300 

4952 027304 

4953 027306 

4954 027310 

4955 027314 

4956 027320 

4957 027324 

4958 027326 

4959 027332 

4960 027336 

4961 027342 

4962 027346 

4963 027350 

4964 027350 
027350 
027352 
027354 
027356 

4965 027360 
027360 

4966 
4967 
4968 

4969 027362 

4970 027366 

4971 027372 

4972 027376 

4973 027402 

4974 027406 

4975 027412 

4976 027414 

4977 027416 

4978 027416 
027416 
027420 
027422 



004737 
012704 
010465 
004737 
103407 
010001 



032422 
033010 
177776 
017220 



104455 




000207 




031364 




011670 




004737 




104406 




004737 


032604 


012701 


031012 


012702 


032702 


012221 




011211 




042711 


000020 


052711 


000040 


042711 


000200 


005000 




012701 


032662 


012702 


030772 


012703 


000024 


004737 


011322 


103404 




104456 




000210 




031761 




012172 




104406 





012700 
012701 
004737 
012704 
010465 
004737 
103407 
010001 



104455 
000211 
031474 



000001 
031114 
032510 
033010 
177776 
017220 



157$: 



160$: 



If Input Rtady NOT«0 
If Output Rtady NOT'I 
If Data In Nitt NOTcO 
JSR Pr.T17SRD 
NOV ffT1/PK2,R4 
NOV R4,TSDB(R5) 
JSR PCCHKTSSR 
BCS 160$ 
NOV R0.R1 
NEXT.ERRNO 

ERRDF ERRN0.T173SSR. 



Thtn Print Error 
Thtn Print Error 
Thtn Print Error 

; SETUP PACKET FOR READ STATUS 
;6ET WRITE SUBSYSTEM COHNAND PACKET 
;SET THE PACKET ADDRESS TO EXECUTE 
;UAIT FOR SSR TO SET 
;BR IF CARRY SET (GOOD RETURN) 
;SAVE CONTENTS OF TSSR 



PKTSSR .-DEVICE FATAL SSR FAILED TO SET 

TRAP CSERDF 
.WORD 135 
.UORD T173SSR 
.WORD PKTSSR 

JSR PC.FATCNK ;INC AND CHECK FOR MORE THAN 25 ERRORS 

CKLOOP ;LOOP ON ERROR, IF FLAG SET 

TRAP C$CLP1 
Mssagt bufftr x to rtcv tinct not testing 
;SET WORDS 0-7 EXPD'RECV 
;6ET EXPECTED READ STATUS 
;GET RECV READ STATUS 
:SET EXPD UORD #8 s RECV TEHP 
:SET EXPD WORD #9 > RECV TEHP 
;SET EXP INPUT READY* 0 
) ;SET EXP OUTPUT READY* 1 

:SfcT EXP DATA IN HISS « 0 
;HIGH RECV ADDRESS FOR CKHS62 
;LOW RECV ADDRESS FOR CKHS62 
;EXPD ADDRESS 

:NUnBER OF BYTES TO CONPARE 
:EXPD EQUAL RECV? 
;BR IF YES 



Stt WORDS 0-7 of txpd 

JSR PC.T17SETEXP 

NOV ffT17EXSTA«R1 

HOV ffT17BFSTA,R2 

HOV (R2)^.(R1}^ 

NOV (R2),(R1) 

BIC IS2.INRDY.(R1) 

BIS iS2.0UTRDY.(R1 

BIC fS2.DIH,(R1) 

CLR RO 

HOV ffT17BFR«R1 

HOV ffT17EXP,R2 

HOV f20..R3 

JSR PC.CKHS62 

BCS 170$ 
NEXT.ERRNO 

162$: FRRHRO ERRNG.T173CHP. 



HS6STAT 



170$: CKLOOP 



Do a Writt SubsystM WRITE FIFO 
HOV #1 ,R0 
HOV ffT17WFDATA.R1 
JSR PC,T17UFIF 
HOV IT17PK2,R4 
HOV R4«TSDB(R5) 
JSR PC.CHKTSSR 
BCS 180$ 
HOV RO.RI 
NEXT.ERRNO 
172$: ERRDF ERRNO.T175SSR.PKTSSR 



.-REPORT ERROR 

TRAP CSERHRD 

.WORD 136 

.WORD T173CHP 

.WORD HSGSTAT 
.'LOOP ON ERROR. IF FLAG SET 

TRAP C$CLP1 



1 bytt for a total of 65. written 

;FIFO BYTE COUNT 

;FIFO WRITE DATA ADDRESS 

.•SETUP T17PK2 FOR WRITE FIFO 

;GET WRITE SU6SYSTEH COHNAND PACKET 

:SET THE PACKET ADDRESS TO EXECUTE 

;WAIT FOR SSR TO SET 

:BR IF CARRY SET (GOOD RETURN) 

.-SAVE CONTENTS OF TSSR 

.-DEVICE FATAL SSR FAILED TO SET 

TRAP CSERDF 
.WORD 137 

JiQKO. lusssa 
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SEQ 129 



027424 

4979 027426 

4980 027432 
027432 

4981 
4982 
4983 
4984 
4985 

4986 027434 

4987 027440 

4988 027444 

4989 027450 

4990 027454 

4991 027456 

4992 027460 

4993 027460 
027460 
027462 
027464 
027466 

4994 027470 

4995 027474 
027474 

4996 

4997 027476 

4998 027502 

4999 027506 

5000 027512 

5001 027514 

5002 027516 

5003 027522 

5004 027526 

5005 027532 

5006 027534 

5007 027540 

5008 027544 

5009 027550 

5010 027554 

5011 027556 

5012 027556 
027556 
027560 
027562 
027564 

5013 027566 
027566 

5014 

5015 027570 

5016 027574 

5017 02.600 

5018 027604 

5019 027610 

5020 027614 

5021 027616 

5022 027620 

5023 027620 



011670 
004737 

104406 



004737 
012704 
010465 
004737 
103407 
010001 



104455 
000212 
031364 
011670 
004737 

104406 

004737 
012701 
012702 
012221 
011211 
042711 
052711 
052711 
005000 
012701 
012702 
012703 
004737 
103404 



104456 
000213 
031761 
012172 

104406 

013700 
004737 
012704 
010465 
004737 
103407 
010001 



020064 



032422 
033010 
177776 
017220 



020064 



032604 
031012 
032702 



000020 
000040 
000200 

032662 
030772 
000024 
011322 



002254 
032544 
033010 
177776 
017220 



180$: 



187S: 



190$: 



JSR 

CKLOOP 



PC.FATCNK 



.WORD PKTSSR 
:INC AND CHECK FOR MORE THAN 25 ERRORS 
;LOOP ON ERROR, IF FLAG SET 

TRAP C$CLP1 



Do • UrUt SubsystM READ STATUS 



If Input Rtady NOTsO 
If Output Rtady NOT^I 
If Data In Niss N0T«1 



JSR PC.T17SRD 

MOV fT17PK2,R4 

MOV R4.TSDB(R5} 

JSR PCCHKTSSR 

BCS 190$ 

MOV RO.RI 
NEXT.ERRNO 

ERRDF ERRN0,T173SSR.PKTSSR 



Th«n Print Error 
Than Print Error 
Than Print Error 

;SETUP PACKET FOR READ STATUS 
:GET URITE SUBSYSTEM COMMAND PACKET 
;SET THE PACKET ADDRESS TO EXECUTE 
;UAIT FOR SSR TO SET 
;BR IF CARRY SET (GOOD RETURN) 
;SAVE CONTENTS OF TSSR 



.'DEVICE FATAL SSR FAILED TO SET 

TRAP C$ERDF 
.WORD 138 
.WORD T173SSR 
t*ORD PKTSSR 

JSR PCFATCHK ;INC AND CHECK FOR MORE THAN 25 ERRORS 

CKLOOP ;L0OP ON ERROR, IF FLAG SET 

TRAP C$CLP1 

Stt WORDS 0-7 of txpd iiessaga buffer = to rtcv sinct not tasting 



JSR PC«T17SETEXP 

MOV fT17EXSTA.R1 

MOV fT17BFSTA,R2 

MOV (R2)>«(R1)« 

MOV (R2>.(R1) 

BIC fS2.INRDY«(R1) 

BIS »S2.0UTRDY,(R1) 

BIS #S2.DIM.(R1) 

CLR RO 

MOV «T17BFR.R1 

MOV fT17EXP,R2 

MOV #20.. R3 

JSR PC.CKNS62 

BCS 200$ 
NEXT.ERRNO 
192$: ERRHRD ERRN0.T173CMP.MSGSTAT 



200$: CKLOOP 

Do Write Subsystem READ FIFO 
MOV COUNT.RO 
JSR PC.T17RFIF 
NOV «T17PK2.R4 
NOV R4.TSDB(R5) 
JSR PC.CNKTSSR 
BCS 220$ 
NOV RO^RI 
NEXT.ERRNO 
212$; ERRDF ERRN0,T176SSR.PKTS5R 



:SET WORDS 0-7 EXPD^RECV 
;GkT EXPECTED READ STATUS 
:6ET RECV READ STATUS 
:SET EXPD WORD #8 « RECV TEMP 
;SET EXPD WORD «9 - RECV TEMP 
;SET EXP INPUT READYs 0 
;SET EXP OUTPUT READY- 1 
:SET EXP DATA IN MISS « 1 
.•HIGH RECV ADDRESS FOR CKMSG2 
:LOW RECV ADDRESS FOR CKMSG2 
;EXPD ADDRESS 

.-NUMBER OF BYTES TO COMPARE 
:EXPD EQUAL RECV? 
:BR IF YES 



.•REPORT ERROR 



.-LOOP ON ERROR. IF 



TRAP 
.WORD 
.WORD 
.WORD 
FLAG SET 
TRAP 



CSERHRD 
139 

T173CMP 
MS6STAT 

CiCLPI 



:SET READ BYTE COUNT 

.•SETUP T17PK2 FOR READ FIFO 

.-GET WRITE SUBSYSTEM COMMAND PACKET 

:SET THE PACKET ADDRESS TO EXECUTE 

.•WAIT FOR SSR TO SET 

;BR IF CARRY SET (GOOD RETURN) 

:SAVE CONTENTS OF TSSR 

fPgVlCE FATAL SSR FAILED TO SET 



N 10 
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SEO 130 



027620 
027622 
027624 
027626 

5024 027630 

5025 027634 
027634 

5026 
5027 

5028 027636 

5029 027640 

5030 027644 

5031 027650 

5032 027654 

5033 027660 

5034 027662 

5035 027662 

5036 027666 
027666 
027670 
027672 
027674 

5037 027676 
027676 

5038 
5039 
5040 
5041 
5042 

5043 027700 

5044 027704 

5045 027710 

5046 027714 

5047 027720 

5048 027722 

5049 027724 

5050 027724 
027724 
027'26 
027730 
027732 
027734 

5052 027740 
027740 

5053 

5054 027742 

5055 027746 

5056 027752 

5057 027756 

5058 027760 

5059 027762 

5060 027766 

5061 027772 

5062 027776 

5063 030000 

5064 030004 

5065 030010 



5051 



104455 
000214 
031540 
011670 
004737 

104406 



005000 
012702 
012701 
013703 
004737 
103406 



020064 



031114 
032702 
002254 
011322 



013701 002254 

104456 
000215 
032130 
012012 

104406 



004737 
012704 
010465 
004737 
103407 
010001 



032422 
033010 
177776 
017220 



104455 




000216 




031364 




011670 




004737 


020064 


104406 




004737 


032604 


012701 


031012 


012702 


032702 


012221 




011211 




052711 


000020 


042711 


000040 


052711 


000200 


005000 




012701 


032662 


012702 


030772 


012703 


000024 



220S: 



260S: 



JSR 

CKLOOP 



PC.^ATCHX 



If Data rtad fro* FIFO NOTs to 



CLR RO 

NOV #T17UFDATA«R2 

mv #T17BFSTA.R1 

MOV COUNT «R3 

JSR PC.CKHS62 

BCS 2401 
NEXT.ERRNO 

232S: NOV COUNT, R1 

ERRHRD ERRNO,T175CNP,FIFEXP 



240$: CKLOOP 



TRAP CIERDF 

.WORD 140 

.UORD T176SSR 

.UORD PKTSSR 

:INC AND CHECK FOR NORE THAN 25 ERRORS 

;LOOP ON ERROR. IF FLAG SET 

TRAP CSCLP1 

Data sent Then Print Error 
:HI6H RECV ADDRESS FOR CKNS62 
:6ET EXPECTED ADDRESS FOR CKNS62 
;GET RECEIVED ADDRESS FOR CKNSG2 
;NUNBER OF BYTES TO CONPARE 
:EXPD EQUAL RECV? 
;BR IF YES 



;6ET BYTE COUNT 
.•REPORT ERROR 



;L00P ON ERROR. IF 



TRAP 
.VIORD 
.WORD 
.WORD 
FLAG SET 
TRAP 



CSERHRD 
141 

T175CNP 
FIFEXP 

CSCLPI 



Do a Write Subsysten READ STATUS 



If Input Ready NOTsI 
If Output Ready NOTsO 
If Data In Hiss N0T«1 
JSR PC.T17SRD 
NOV #T17PK2.R4 
NOV R4.TSDB(R5} 
JSR PC.CHKTSSR 
BCS 260S 
NOV RO.RI 
NEXT.ERRNO 



Then Print Error 
Then Print Error 
Then Print Error 

.•SETUP PACKET FOR READ STATUS 

;GET WRITE SUBSYSTEN CONNAND PACKET 

:SET THE PACKET ADDRESS TO EXECUTE 

.•WAIT FOR SSR TO SET 

;BR IF CARRY SET (GOOD RETURN) 

;SAVE CONTENTS OF TSSR 



252S: ERRDF ERRN0.T173SSR.PKTSSR 



JSR 

CKLOOP 



PC.FATCHK 



CSERDF 
142 

T173SSR 
PKTSSR 



:DEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 

;INC AND CHECK FOR NORE THAN 25 ERRORS 
;LOOP ON ERROR. IF FLAG SET 

TRAP CSCLP1 

Set WORDS 0-7 of expd mssage buffer = to recv since not testing 

;SET WORDS 0-7 EXPDsRECV 



JSR PC.T17SETEXP 

NOV fT17EXSTA.R1 

NOV fT17BFSTA.R2 

NOV (R2)«.(R1)« 

NOV (R2).(R1) 

BIS «S2.INRDV.(R1> 

BIC fS2.0UTRDY.(R1) 

BIS fS2.0IN.(R1) 

CLR RO 

NOV fllTBFR.RI 

NOV «T17EXP.R2 

NOV f20,.ll3 



:GET EXPECTED READ STATUS 
:6ET RECV READ STATUS 
;SET EXPD UORD #8 * RECV TENP 
:SET EXPD WORD #9 s RECV TENP 
.•SET EXP INPUT ^ ADY= 1 
;SET EXP 0UTPU1 READY^ 0 
:SET EXP DATA IN NISS • 1 
;HIGH RECV ADDRESS FOR CKNSG2 
;LOU RECV ADDRESS FOR CKNSG2 
:EXPD ADDRESS 

..MUNBgR nF BYTf S TO CONPARE 
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SEC 131 



5066 
5067 
S068 
5069 



5070 

5071 
5072 



5073 
5074 
5075 
5076 
5077 
5078 
5079 
5080 



0300K 
030020 
030022 
030022 
030022 
030024 
030026 
030030 
030032 
030032 

030034 
030034 
030034 

030036 
0300^2 
030044 
030050 



004737 011322 
103404 



104456 
000217 
032045 
012172 



104406 



104403 



2728: 



280S: 



005737 002170 
001402 

004737 020136 



300S: 



JSR PC.CKIIS62 
BCS 2808 
NEXT.ERRNO 

ERRHRD EPRN0,T174CNP.n$6STAT 



CKLOOP 
ENDSUB 



TST 
BEQ 
JSR 



FATFL6 
3008 

PC.CKDROP 



;EXPD EQUAL RECV? 
:BR IF YES 

.•REPORT ERROR 

TRAP C8ERHRD 

.yORD 143 

.WORD T174CIIP 

.WORD NSGSTAT 
.•LOOP ON ERROR. IF FLAG SET 

TRAP C8CLP1 

.//////////// END SUBTEST ////////// 
Li 0043: 

TRAP C8ESUB 

:ANY FATAL ERRORS ? 

;BRANCH IF NOT 

.•TRY TO DROP THE UNIT 



c ^^ 
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SEO 15? 



5082 

5083 

5084 

5085 

5086 

5087 

5088 

5089 

5090 

5091 

5092 

5095 

5094 

5095 

5096 

5097 

5098 

5099 

5100 

5101 

5102 

5105 

5104 

5105 

5106 

5107 

5108 

5109 

5110 

5111 

5112 

5115 

5114 

5115 

5116 

5117 

5118 

5119 

SI 20 050050 
050050 
050050 

5121 
5122 

5125 050052 

5124 050052 

5125 050056 

5126 050060 

5127 050062 
050062 
050064 
050066 
050070 

5128 

5129 050072 

5150 050076 

5151 050102 

5152 050106 



.S6TTL TEST 1: SUBTEST 6; FIFO Vtrify Rtstt FIFO Tttt 

TEST 1: SUBTEST 6; 

SUBTEST DESCRIPTION: 

This tubtttt tftrlflts that tht Rtstt FIFO function wUhln 
tht Uritt HIsctUantous Control 1 function In^tlaliits 
tht FIFO to corrtct Intlal status. Tht foUoMing sttps 
art ptrforatd: 

1. Rtstt an alrtady Inltlallztd FIFO and chtck fo*' 
proptr status. 

2. Uritt a varying nuMbtr of bytts (1-65.) Into tht 
FIFO and vtrify that afttr tach bio'.k of bytts Is 
writttn tht FIFO can bt bt rtstt to 1t*s Initial 
statt. 

TEST STEPS: 
BEGIN 

Writt to TSSR to soft Inltlallzt 

Do a WRITE CHARACTERISTICS to sttup a Mssagt bufftr 

Do a Uritt Subsystta Uritt Nisc to Rtstt FIFO 

Do a Uritt SubsystMi READ STATUS 

If all Tapt Status 2 (ICER.IFMKJHER) flip-flop 

signals MTsO Than Print Error 
Do a Uritt Subtyttta URITE NPR to stt tapt dirtctlon out 

REPEAT FOR BYTE COUNT 1 TO 6S. 
BEGIN 

Do a Uritt SubsystMi URITE FIFO ulth tht currtnt bytt count 
Do a Uritt Subsystt* Uritt Hlsc to Rtstt FIFO 
Do a Uritt Subsystta READ STATUS 
If all Tapt Status 2 (ICER.IFMKJHER) flip-flop 
signals NOTbO Than Print Error 

END 



6GNSUB 



104402 



004757 016650 

105405 

010001 

104455 
000217 
005550 
011656 

005057 002170 
012704 052640 
004757 01052? 
105407 



;//////////// BEGIN SUBTEST ////////// 
T1.6: 

TRAP C$6SUB 



Uritt to TSSR rtglsttr to soft Inltlallzt tht controlltr 



10S: 



JSR 
8CS 
NOV 
ERRDF 



Do a 

CLR 
NOV 
JSR 
BCS 



PC.SOFINIT 

10$ 

R0«R1 

ERRNO«SFIERR.SFIHSG 



.-WRITE TO TSSR TO SOFT INITIALIZE 
;BR IF SOFT INIT OKAY 
.-SAVE CONTENTS OF TSSR 
;DEVICE FATAL DURING INIT 

TRAP 
.WORD 
.WORD 
.WORD 

WRITE CHARACTERISTICS to Sttup a MSsagt bufftr 



CtERDF 
145 
iFIERR 
SF INSG 



FATFLG 
fT17PACKET«R4 
PCURTCHR 

501 



CLEAR FATAL ERROR FLAG 
GET THE ADDRESS OF CONNANO PACKET 
DO WRITE CHARACTERISTICS CONNANO 
IF CARRY SFT (GOOD RETURN) 
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SEO Mi 



5133 030110 

5134 030112 

5135 030112 
030112 
0301 U 
030116 
030120 

5136 030122 

5137 030126 
030126 

5138 

5139 030130 
5U0 030134 
5141 030140 
5U2 030144 

5143 030150 

5144 030152 

5145 030154 

5146 030154 
030154 
030156 
030160 
030162 

5147 030164 

5148 030170 
030170 

5149 
5150 
5151 
5152 

5153 030172 

5154 030176 

5155 030202 

5156 030206 

5157 030212 

5158 0302U 

5159 030216 

5160 030216 
030216 
030220 
030222 
030224 

5161 030226 

5162 030232 
030252 

5163 030234 

5164 030240 

5165 050244 

5166 050250 

5167 050252 

5168 030256 

5169 030262 

5170 030266 

5171 030274 

5172 030276 

5173 030302 

5174 030306 



010001 



104455 
000220 
031265 
011670 
004757 

104406 

004757 
012704 
010465 
004757 
105407 
010001 



104455 
000221 
051520 
011670 
004757 

104406 



004757 
012704 
010465 
004757 
105407 
010001 



104455 
000222 
051564 
011670 
004757 

104406 
004757 
012701 
012702 
011211 
042711 
04*711 
042711 
016261 
005000 
012701 
012702 
012705 



020064 



052442 
05501 C 
177776 
017220 



020064 



052422 
055010 
177776 
017220 



42S: 



SOS: 



62S: 



70t: 



020064 



052604 
051012 
052702 

002000 
001000 
000400 

000002 000002 

052662 
050772 
000024 



80S: 



NOV R0.R1 
NEXT.ERRNO 

ERRDF ERRN0,T17SSR.PICTSSR 



jSR 

CKLOOP 



PCFATCHK 



Do • Uritt SubsysttM Write Nfsc 

JSR PC.T17RSFIF 

NOV fT17PK2,R4 

nOV R4,TS0B(R5) 

JSR PC«CHKTSSR 

BCS 70S 

NOV R0.R1 

NEXT.ERRNO 

ERRDF ERRN0.T172SSR.PKTSSR 



JSR 

CKLOOP 



PC.FATCHK 



.'SAVE CONTENTS OF TSSR 

.'DEVICE FATAL SSR FAILED TO SET 

TRAP CIERDF 
.yORC U4 
.yORD T17SSR 
.WORD PKTSSR 

:1NC AND CHECK FOR NTRE THAN 25 ERRORS 

.-LOOP ON ERROR. IF FLAG SET 

TRAP CSCLP1 

to Rtstt FIFO 

;SETUP PKT FOR URITE NISC RESET FIFO 
: GET WRITE SUBS VS TEN COHNAND PACKET 
;SET THE PACKET ADDRESS TO EXECUTE 
iWAIT FOR SSR TO SET 
:BR IF CARRY SET (6000 RETURN) 
.•SAVE CONTENTS OF TSSR 

.•DEVICE FATAL SSR FAILED TO SET 

TRAP CSERDF 

.WORD 145 

.WORD T172SSR 

•WORD PKTSSR 

.•INC AND CHECK FOR NORE THAN 25 ERRORS 

.-LOOP ON ERROR. IF FLAG SFT 

TRAP CSCLP1 



Do • Writ* SubtystM READ STATUS 
If all Tap* Status 2 (ICER,IFNK.IHER) flip-flop 
sfgnalt NOT«0 Then Print Error 



JSR 
NOV 
NOV 
JSR 
BCS 
NOV 



PC.T17SRD 
fT17PK2,R4 
R4.TSDB(R5) 
PC.CHKTSSR 
SOS 
R0.R1 



NEXT.ERRNO 
77S: ERRDF ERRN0.T175SSR.PKTSSR 



JSR 


PC.FATCHK 


CKLOOP 


JSR 


PC.T17SETEXP 


NOV 


fT17EXSTA.R1 


NOV 


fT17BFSTA.R2 


NOV 


<R2).(R1) 


BIC 


«S1.ICER.(R1) 


BIC 


fSI.IFNK.(RI) 


BIC 


«S1.IHER.(R1) 


NOV 


2(R2).2(R1) 


CLR 


RO 


NOV 


fTITBFR.RI 


NOV 


fT17EXP.R2 


NOV 


120. .R5 



.•SETUP PACKET FOR READ STATUS 
.-GET WRITE SUBSVSTEN CQNNAND PACKET 
.-SET THE PACKET ADDRESS TO EXECUTE 
.•WAIT FOR SSR TO SET 
:BR IF CARRY SET (GOOD RETURN) 
.•SAVE CONTENTS OF TSSR 

.-DEVICE FATAL SSR FAILED TO SET 

TRAP CSERDF 
.WORD 146 
.WORD T173SSR 
.WORD PKTSSR 
.-INC AND CHECK FOR NORE THAN 25 ERRORS 
.•LOOP ON ERROR. IF FLAG SET 

TRAP CSCLP1 

SET WORDS 0-7 EXPD^RECV (NOT TESTING) 

GET EXPECTED READ STATUS 

GET RECV READ STATUS 

SET EXPO WORD #8 < RECV TENP 

SET EXPD ICER ^0 

SET EXPD IFNK «0 

SET EXPD IHER '0 

SET EXPD WORD #9 * RECV (NOT TESTING) 
HIGH RECV ADDRESS FOR CKNSG2 
LOW RECV ADDRESS FOR CKNSG2 
EXPO ADDRESS 

NUNBgR OF IIYTtS TO gQNPARt 
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SEO 



5175 OJ0312 

5176 030316 

5177 050320 

5178 030320 
030320 
030322 
030324 
030326 

5179 030330 
030330 

5180 
5181 

5182 030332 

5183 030336 

5184 030342 

5185 0S0S46 

5186 030352 

5187 030356 

5188 030360 

5189 030362 

5190 030362 
030362 
030364 
030366 
030370 

5191 030372 

5192 030376 
030376 

5193 
5194 

5195 030400 

5196 030404 

5197 030410 

5198 030412 

5199 030414 

5200 030416 

5201 030420 
5202 

5203 

5204 0S0422 
5205 

5206 030430 
5.^97 030430 
S208 030434 
>?09 030440 



5» '0 



030444 
030450 
^ »2 0304S4 
V IS 030460 
'214 030462 
>215 030464 

5216 030464 
030464 
030466 
030470 
030472 

5217 030474 



011322 



000100 
032464 
033010 
177776 
017220 



004737 
103404 



10A456 
000223 
032312 
012172 

104406 



012700 
004737 
012704 
010465 
004737 
103407 
010001 



104455 
000224 
031431 
011670 
004737 

104406 



012701 
012702 
OOSOOO 
110021 
005200 
005302 
003374 



012737 000001 002254 



92$: 



100$: 



112$: 



JSR PC,CKnS62 
BCS 100$ 
NEXT.ERRNO 

ERRNRO EPRN0.T177CRP.HSGSTAT 



CKLOOP 



Do • yritt SubtystM WRITE NPR 

mv fNP.OUT.RO 

JSR PC.T17SNPR 

mv ffT17PK2.R4 

NOV R4JSDB(R5> 

JSR PC.CHKTSSR 

BCS 120$ 

HOV RO.Rl 

NEXT«ERRNO 

ERRDF ERRN0.T174SSR.PKTSSR 



020064 



031012 
000100 



120$: 



JSR 

CKLOOP 



PCFATCHK 



.-EXPO EQUAL RECV? 
:BR IF YES 

.•REPORT ERROR 

TRAP C$ERHRO 
.WORD 147 
.WORD T177CNP 
.WORD NSGSTAT 
:LOOP ON ERROR, IF FLAG SET 

TRAP C$CLP1 

to stt tapt dirtctlon out 
SET TAPE DIRECTION OUT 
SETUP T17PK2 FOR WRiTE NPR 
GET WRITE SUBSYSTEM COHNAND PACKET 
SET THE PACKET ADDRESS TO EXECUTE 
WAIT FOR SSR TO SET 
BR IF CARRY SET (GOOD RETURN) 
SAVE CONTENTS OF TSSR 

DEVICE FATAL SSR FAILED TO SET 

TRAP C$ERDF 

.WORD 148 

.WORD T174SSR 

.WORD PKTSSR 

:INC AND CHECK FOR MORE THAN 25 ERRORS 
:LUOP ON ERROR. IF FLAG SE1 

TRAP C$CLP1 



Sttup IncrtMntfng patttrn In FIFO d«tt bufftr 



130$: 



mv fT17EXSTA.R1 

mv #64., R2 

CLR RO 

mVB R0.(R1>« 

INC RO 

DEC R2 

B6T 130$ 



013700 
012701 
004737 
012704 
010465 
004737 
103407 
010001 



10445S 
000225 
031474 
011670 
004737 



002254 
031012 
032510 
033010 
177776 
017220 



; REPEAT FOR BYTE COUNT 1 TO 65. 
mv fl. COUNT 
Do • WrUt SubtyttM WRITE FIFO 

150$: 

mv COUNT .RO 
mV fT17EXSTA.Rl 
JSR PC.T17WFIF 
mv fT17PK2.R4 
mv R4,TSDB(R5) 
JSR PC.CHKTSSR 
BCS 160$ 
mv RO.Rl 
NEXT.ERRM 
152$: ERRDF ERRM.T175SSR. PKTSSR 



020064 



JSR 



PC.fATCHK 



:EXPD WRITE FIFO DATA BUFFER 
.TEST PATTERN SIZE 
: INCREMENT TEST PATTERN 
; STORE INCREMENT TEST BYTE 
:SET NEXT PATTERN 
.-DONE? 
;BR IF m 



:6ET FIRST BYTE COUNT 

Mith tht current bytt count 

.•REPEAT LOOP LABEL 

.-FIFO BYTE COUNT 

:FIFO WRITE DATA ADDRESS 

.'SETUP T17PK2 FOR WRITE FIFO 

:6ET WRITE SUBSYSTEM COMMAND PACKET 

;SET THE PACKET ADDRESS TO EXECUTE 

:WAIT FOR SSR TO SET 

:BR IF CARRY SET (6000 RETURN) 

.•SAVE CONTENTS OF TSSR 

;DEVICE FATAL SSR FAILED TO SET 

TRAP CSERDF 
.WORD 149 
.WORD T175SSR 
.WORD PKTSSR 

•tkC AMD CHtCit FM MQRg TIUM ?S fRttORS 
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StQ 135 



5218 030S00 
030S00 

5219 
S220 

5221 030502 

5222 030506 

5223 030512 

5224 030516 

5225 030522 

5226 030524 

5227 030526 

5228 030526 
030526 
030530 
030532 
030534 

5229 030536 

5230 030542 
030S42 

5231 
5232 
5233 
5234 

5235 030544 

5236 030550 

5237 030554 

5238 030S60 

5239 030564 

5240 030566 

5241 030570 

5242 030570 
030570 
030572 
030574 
030576 

5243 030600 

5244 030604 
030604 

5245 030606 

5246 030612 

5247 030616 

5248 0S0622 

5249 030624 

5250 030630 

5251 030634 

5252 030640 

5253 030646 

5254 0306S0 

5255 0306S4 

5256 030660 

5257 030664 
: r 050670 

y 030672 
aO 030672 
030672 
030674 
030676 



104406 



004737 
012704 
010465 
004737 
103407 
010001 



104455 
000226 
031320 
011670 
004737 

104406 



004737 
012704 
010465 
004737 
103407 
010001 



104455 
000227 
031364 
011670 
004757 

104406 
004737 
012701 
012702 
011211 
042711 
042711 
042711 
016261 

oosooo 

012701 
012702 
012705 
004737 
105404 



104456 
000250 
052512 



160t: CRLOOP 



052442 
055010 
177776 
017220 



162t: 



020064 



170S: 



052422 
055010 
177776 
017220 



177S: 



020064 



052604 
051012 
052702 

002000 
001000 
000400 

000002 000002 

052662 
050772 
000024 
011522 



180S: 



Do a UrU* Subsvttra Urltt Hlsc 

JSR PC.I17RSFIF 

NOV fT17PK2,R4 

NOV R4.TSDB(R5) 

JSR FC.CHKTSSR 

BCS 170t 

NOV RO.RI 

NEXT ERRNO 

ERRDF ERRN0.T172SSR.PKTSSR 



JSR 

CKLOOP 



PC.FATCHK 



.-LOOP ON ERROR. IF FLAG SET 

TRAP CtCLPI 

to Rtttt FIFO 

;SETUP PKT FOR WRITE NISC RESET FIFO 
; GET WRITE SUBSTSTEN CONNANO PACKET 
:SET THE PACKET A»»RESS TO EXECUTE 
;WAIT FOR SSR TO SET 
;BR IF CARRT SET (GOOD RETURN) 
:SAVE CONTENTS OF TSSR 

.•DEVICE FATAL SSR FAILED TO SET 

TRAP CSERDF 

.WORD 150 

.WORD T172SSR 

.WORD PKTSSR 

:INC AND CHECK FOR NORE THAN 25 ERRORS 

:LOOP ON ERROR. IF FLAG SET 

TRAP CSCLP1 



Do • Writt Subtyttta READ STATUS 
If all T«p« Status 2 (ICER.IFNK.IHER) flfp-flop 
signals NOTO Than Print Error 



JSR ' PC.T17SRD 

NOV fT17PK2.R4 

NOV R4.TSDB(R5) 

JSR PC.CHKTSSR 

BCS 1808 

NOV R0.R1 
NEXT. ERRNO 

ERRDF ERRNO,T175SSR.PKTSSR 



.•SETUP PACKET FOR READ STATUS 
.•GET WRITE SUBSTSTEN CONNAND PACKET 
;SET THE PACKET ADDRESS TO EXECUTE 
.•Wait for SSR TO SET 
.•BR IF CARRY SET (GOOD RETURN) 
.SAVE CONTENTS OF TSSR 



JSR 

CKLOOP 



PC.FATCHK 



CSERDF 
151 

T173SSR 
PKTSSR 



JSR PC.T17SETEXP 

NOV fT17EXSTA.R1 

NOV fT17BFSTA.R2 

NOV (R2).(R1) 

BIC #S1.ICER.(R1) 

BIC #S1.IFNK.(R1> 

BIC fSl.lHER.CRI) 

NOV 2(R2).2(R1) 

CLR RO 

NOV fTl7BFR.Rl 

NOV fT17EXP.R2 

NOV #20. .R3 

JSR PC.CKNS62 

BCS 2008 
NEXT ERRNO 
1928: ERRHRO ERRN0.T177CHP.NS6STAT 



.•DEVICE FATAL ^SR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 

:INC AND CHECK FOR NORE THAN 25 ERRORS 
.•LOOP ON ERROR. IF FLAG SET 

TRAP CSCLP1 
.•SET WORDS 0-7 EXPD'RECV (NOT TESTING) 
.•GET EXPECTED READ STATUS 
:GET RECV READ STATUS 
.•SET EXPD WORD #8 « RECV TENP 
«0 

«0 
«0 

•SET EXPD WORD 99 « RECV (NOT TESTING) 
;HIGH RECV ADDRESS FOR CKNSG2 
:LOW RECV ADDRESS FOR CKNSG2 
.EXPD ADDRESS 

:NUNBER OF BYTES TO CONPARE 
;EXPO EQUAL RECV? 
.•BR IF YES 



;SET EXPD ICER 
.•SET EXPD IFNK 
.•SET EXPD INER 



: REPORT ERROR 



TRAP CIERHRO 
.WORD 152 

U21U» 



CZTUXAO TU80 FRONT END PRT B MACRO m200 29HMft-8S 15:32 
TEST 1: SUBTEST 6: FIFO VERIFY RESET FIFO TEST 



6 11 
PASE 82-4 



030700 
5261 030702 
030702 

S262 
5263 

5264 05C7H 

5265 050/04 

5266 0307H 

5267 030720 

5268 0301^6 

5269 030730 

5270 030734 
5271 

5272 030734 
030734 
030734 

5273 

5274 030736 

5275 030742 

5276 030744 

5277 030750 

5278 030754 

5279 030756 

5280 030762 

5281 030762 
5282 

5283 030762 
030762 
030764 

5284 
5285 



012172 
104406 



005237 002254 

023727 002254 000101 
101002 

000137 030430 



104403 

005737 002170 
001402 

004737 020136 
004737 017340 
103002 

000137 024046 



104432 
002144 



200S: CKLOOP 



250S: 



260t: 



FORCEXIT 
INC COUNT 
CNP COUNT ,#65. 
BHI 260i 
JNP 150t 



ENOSUB 



2601 



300S: 



305S: 
IMPEND : 



TST 
BEO 
JSR 
JSR 
BCC 
JHP 



EXIT 



FATFL6 
300t 

PC«CKDROP 
PC.TSTLOOP 
30Si 
T17L00P 



TST 



.WORD NS6STAT 
:L0OP ON ERROR. IF FLAG SET 

TRAP rSCLPI 



GET NEXT BYTE COUNT 
DONE ALL BYTES? 
BR IF YES 

DO ANOTHER BYTE COUNT 



;//////////// END SUBTEST ////////// 
L10044: 

TRAP ctESua 

;ANV FATAL ERRORS ? 
.•BRANCH IF NOT 
;TRY TO DROP THE UNIT 
:D0 ITERATIONS? 
*BR IF NO 

;LOOP UNTIL ITERATIONS DONE 

Baa TEMPORARY END OF TEST 

;////////// EXIT TEST ////////// 

TRAP CSEXIT 
.WORD Li 0036- . 



N 11 



CZIUXAO TU80 FRONT END PftT B HACRO HI 200 29-MAII-B3 13:32 
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PAGE 83 



SEO 



5287 
5288 
5289 
5290 
5291 

5292 030766 
5293 

5294 030766 

5295 030767 

5296 030770 

5297 030771 
5298 

5299 030772 

5300 030772 

5301 030774 

5302 030776 

5303 031000 

5304 031002 

5305 031004 

5306 031006 

5307 031010 

5308 031012 

5309 031114 
5310 

5311 031114 

5312 

5313 

5314 

5315 

5316 

5317 031216 
5318 

5319 031235 

5320 031263 

5321 031320 

5322 031364 

5323 031431 

5324 031474 

5325 031540 

5326 031603 

5327 031665 

5328 031761 

5329 032045 

5330 032130 

5331 032204 

5332 032312 
5333 

5334 
5335 
5336 
5337 

5338 032376 

5339 032376 

5340 032402 

5341 032406 

5342 032412 

5343 032414 



377 
037 
360 
000 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



106 

122 
127 
127 
127 
127 
127 
127 
106 
122 
106 
106 
122 
106 
106 



012701 
012702 
105021 
005302 



111 

105 
122 
122 
122 
122 
122 
122 
111 
145 
111 
111 
145 
111 
111 



032662 
000120 



.•LOCAL STORAGE FOR TNIS TEST 



T17MSK: 



.BYTE 
.BYTE 
.BYTE 
.BYTE 



•C<000> 
•C<340> 
•C<017> 
0 



T17EXP: 

.yORO 0 
.UORD 0 
.WORD 0 
.WORD 0 
.WORD 0 
.UORO 0 
.WORD 0 
.WORD 0 

T17EXSTA: .BLKB 66. 

T17EXEN0: 

T17UFDATA: .BLK8 66. 



.LOCAL TEXT MESSAGES FOR TEST 



.-MASK OF UNTESTED BITS IN READ STATUS BYTES 
.UNTESTED BITS ARE SET TO 1 
.•BYTE 0 lUSK 

.-BYTE 1 HASK (PARERR.IRESV2.IRESV1) 
.BYTE 2 (TIMER A.TINER B.UNDEFINED<1 :0» 
:NAKE IT EVEN 

;BEGIN EXPECTED DATA BUFFER 

.-MESSAGE TYPE 

;DATA FIELD LENGTH 

;RBPCR 

;XSTO 

;XST1 

;XST2 

;XST3 

;XST4 (ALWAYS PRESENT FOR WRITE SUB.) 
.•EXPECTED READ STATUS AND WRITE FIFO DATA 
;END EXPECTED DATA BUFFER 

.•WRITE FIFO EXPECTED DATA BUFFER 



106 TST17ID: 

127 T17RtM: .ASCIZ 

111 T17SSR: .ASCIZ 

111 T172SSR:. ASCIZ 

111 T173SSR:. ASCIZ 

111 T174SSR:. ASCIZ 

111 T175SSR:. ASCIZ 

111 T176SSR:. ASCIZ 

106 T1 71 CMP: .ASCIZ 

141 T172CMP:. ASCIZ 

106 T173CHP: .ASCIZ 

106 T174CMP: .ASCIZ 

141 T17SCNP:. ASCIZ 

106 T176CMP:. ASCIZ 

106 T177CMP:. ASCIZ 
.EVEN 



.ASCIZ *FIF0 Excrclstr* 



REWIND CowMnd FaUtd* 

WRITE CHARACTERISTICS FaU«d* 

WRITE SUBSYSTEM (Writt Misc) Falltd* 

WRITE SUBSYSTEM (Rtad Status) FaUtd' 

WRITE SUBSYSTEM (Writt Npr) Falltd* 

WRITE SUBSYSTEM (Writt FIFO) Falltd* 

WRITE SUBSYSTEM (Rtad FIFO) Falltd* 

FIFO Status in WORD #9 Incorrtct afttr Initially* 

Rtad FIFO Data not tqual to Writt FIFO . Data Is In WORD #8' 

FIFO Status (In WORD f9) Incorrtct afttr WRITE FIFO' 

FIFO Status (In WORD 19) Incorrtct afttr READ FIFO* 

Rtad FIFO Data not tqual to Writt FIFO Data* 

FIFO Status (In WORD 19) Incorrtct afttr READ FIFO fro« an Eapty FIFO* 
FIFO Status (In WORD #9) Incorrtct afttr RESET FIFO* 



CLEAR MESSAGE BUFFER 



T17CLR8UF: 

SAVREG 

MOV 

MOV 

10$: CLRB 
DEC 



fT17BFR.R1 

fT17BEN0-T17BFR.R2 

(RD* 

M 



SAVE R1-R5 UNTIL NEXT RETURN 
GET NESSAuE BUFFER ADDRESS 
SIZE OF MESSAGE BUFFER IN BYTES 
CLEAR A BYTE 

ism 
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TEST 1: SUBTEST 6; FIFO VERIFY RESET FIFO TEST 



I 11 
P^GE 83-1 



SCO 13a 



5344 032A16 

5345 032420 
5346 

5347 
5348 
5349 

5350 032422 

5351 032422 

5352 032426 

5353 032432 

5354 032436 

5355 032440 
53S6 

5357 
5358 
5359 

5360 032442 

5361 032442 

5362 032446 
S365 0524S2 

5364 052456 

5365 052462 
5566 

5567 
5568 
5369 
5570 
5571 
5572 
5575 
5574 

5575 052464 

5576 052464 

5577 052470 

5578 052474 

5579 052500 

5580 052504 

5581 052506 
5582 

5585 
5584 
5585 
5586 
5587 
5588 
5589 

5590 052510 

5591 052510 

5592 052514 
5595 052520 

5594 052524 

5595 052550 

5596 052552 

5597 052554 

5598 052556 

5599 052540 
5400 052542 



003375 
000207 



B6T 
RTS 



lot 

PC 



004737 052376 
012700 035020 
112720 000005 
105010 
000207 



004757 052576 

012700 055020 

112720 000010 

112710 000050 
000207 



004757 052576 

012701 055020 

112721 000011 

052700 000020 
110011 
000207 



004757 052576 

012702 055020 

112722 000004 

110022 

005022 

112122 

005500 

005575 

000207 



SETUP T17PK2 PACKtT FOR READ STATUS 



T17SR0: 



JSR PC.T17CLRBUF 

nCV fT170T2,R0 

NOVB «PU.RDSTATUS.(RO)« 

CLRB (RO) 

RTS PC 



:BR IF NO 
; RE TURN 



; CLEAR MESSAGE SUFFER 

:WR1TE SUBSYSTEM OATA BUFFER 

; STORE READ STATUS COMMAND IN BSELO 

; CLEAR BSELI 

; RE TURN 



SETUP T17PK2 PACKET FOR WRITE HISC RESET FIFO 



17RSFIF: 

JSR 

NOV 

NOVB 

NOVB 

RTS 



PC,T17CLRBUF 

#T17DT2.R0 

fPW.UMISC.(RO)« 

fHS.RSFIF!NS.RSTAP,(RO) 

PC 



: CLEAR MESSAGE BUFFER 

:WR1TE SUBSYSTEM DATA BUFFER 

; STORE URITE MISCELLANEOUS IN BSELO 

.STORE BSELI CLEAR FIFO CODES 

: RE TURN 



SETUP T17PK2 PACKET FOR WRITE NPR 
INPUT: 

RO CONTAINS BSELI NPR OATA 

SETS NP.WRP SINCE IF 0 IT WRITES WRONG PARITY. 



17SNPR: 



JSR PC,T17CLRBUF 

NOV fT17DT2.R1 

N0V8 fPU.WNPR.(R1)« 

BIS fNP.WRP.RO 

NOVB RO.(RI) 

RTS PC 



SETUP T17PK2 PACKET FOR WRITE FIFO 



; CLEAR MESSAGE BUFFER 
.'WRITE SUBSYSTEM DATA BUFFER 
.•STORE WRITE NPR IN BSELO 
:DON*T WRITE WRONG PARITY 
: STORE NPR DATA IN BSELI 
.•RETURN 



INPUT: 



RO CONTAINS BYTE COUNT 
R1 CONTAINS DATA PATTERN BLOCK ADDRESS 



17WFJF: 



10$: 



SAVREG 

JSR PC.T17CLRBUF 

NOV fT17DT2.R2 

NOVB fPW.WFIF0.(R2)« 

NOVB R0.(R2)« 

CLR (R2)« 

M0V8 (R1)*.(R2)« 

DEC RO 

BGT lOt 

RTS PC 



.•SAVE R1-R5 UNTIL NEKT RETURN 
.•CLEAR MESSAGE BUFFER 
.•WRITE SUBSYSTEM DATA BUFFER 
; STORE WRITE FIFO IN BSELO 
; STORE BYTE COUNT IN BSEL^ 
.CLEAR SEL2 (UNUSED) 
.•STORE DATA PATTERN BYTE 
:DONE ALL BYTES? 
:BR IF NO 

_iBijm 
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J 11 
PAGE 65-2 



SEO 139 



5401 
S402 
$A05 
5404 
540) 
5406 
5407 

5408 032544 

5409 032544 

5410 052550 

5411 032554 

5412 052560 
5415 052S62 
5414 

5415 
5416 

5417 052564 

5418 052564 

5419 052570 

5420 052574 

5421 052576 

5422 052600 
5425 052602 
5424 

5425 
5426 
5427 

5428 052604 

5429 052604 

5430 032610 

5431 032614 
5452 052620 
5455 0326c2 

5434 032624 

5435 032626 
5436 

5438 052650 
5440 
5441 
5442 

5445 052640 
5U4 052640 

5445 052642 

5446 052644 

5447 032646 
5448 

5449 032650 

5450 032650 

5451 052652 

5452 032654 
5455 032656 
5454 032660 
5455 

5456 
5457 
5458 

5459 032662 



004757 032576 
012701 055020 
112721 000005 
110021 
000207 



012701 050772 

012700 000122 

105021 

005500 

005575 

000207 



012702 050772 

012705 052662 

012700 000010 

012522 

005500 

00537S 

000207 



100004 
032650 
000000 
000012 



032662 
000000 
000024 
000000 
000000 



SETUP T17PK2 PACKET FOR READ FIFO 
INPUT: 



RO CONTAINS SEL2 BYTE COUNT 



T17RFIF: 

JSR PCJ17CLRBUF 

NOV fT17DT2.R1 

NOVB fPU.RFIF0,(R1)« 

NOVB R0,(R1>« 

RTS PC 

CLEAR EXPECTED DATA MESSAGE BUFFER 



T17CLEXP: 



101: 



.'CLEAR MESSAGE BUFFER 
.•WRITE SUBSYSTEM DATA BUFFER 
: STORE READ FIFO IN BSELO 
.STORE BYTE COUNT IN BSELl 
.•RETURN 



MOV 


fT17EXP.Rl 


:6ET EXPD ADDRESS 


MOV 


ffT17EXEND-T17EXP.R0 


;6ET EXPD SIZE 


CLRB 


(RD* 


; CLEAR A BYTE 


DEC 


RO 


.•DONE? 


BGT 


10S 


;BR IF NO 


RTS 


PC 


.•RETURN 



;Stt UORDS 0-7 of txpd atttagt bufftr - to rtcv tinct not totting 



T17SETEXP: 
NOV 
NOV 
MOV 
MOV 
DEC 
BGT 
RTS 



5$: 



fT17EXP.R2 

fT178FR.R3 

f8..R0 

(R3)«.(R2)« 

RO 

5$ 

PC 



;6ET EXPD 

:6ET READ STATUS RECV BUFFER 

.SET UORDS 0-7 EXPsRECV 

.•SFT EXPD*RECV 

;DONE UORDS 0-7 UORDS? 

;BR IF NO 

{RETURN 



.BLKB 10-<.-TUV2At7> 
WRITE CHARACTERISTICS COMMAND PACKET 



T17PACKET: 

.WORD 
.WORD 
.WORD 
.WORD 

T17DATA: 



100004 
T17DATA 

0 

10. 



.WORD 


T17BFR 


.WORD 


0 


.WORD 


20. 


.WORD 


0 


.WORD 


0 



;COMMAND PACKET FOR TEST 

:WRITE CHARACTERISTICS COMMAND. WITH ACK 

.•ADDRESS OF CHARACTERISTICS BLOCK 

.•MINIMUM MESSAGE PACKET SIZE 

.CHARACTERISTICS DATA BLOCK 
;ADDRESS OF MESSAGE BUFFER 

.LENGTH OF MESSAGE BUFFER 
.ESS.ENB.EAI.ERI 

.•EXTENDED FEATURES UNIT NO. ETC. 



.•MESSAGE BUFFER FOR ALL TEST 6 COMMANDS 
T17BFR; 



;BgCIH WtSSAfig auffER 



K 11 
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5460 032662 
SA61 032664 
S462 032666 
5A63 032670 
5A64 032672 

5465 032674 

5466 032676 

5467 032700 

5468 032702 

5469 033002 
5470 

5471 
$472 

5474 033002 

5476 053010 

5477 033010 

5478 033012 

5479 033014 

5480 033016 
5481 

5482 033020 

5483 033020 

5484 033021 

5485 033022 

5486 033024 

5487 033126 
5488 

5489 033130 
033130 
033130 

5490 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



100006 
033020 
000000 
000012 



000 
000 
000000 

000000 



104401 



.WORD 0 

.WORD 0 

.UORD 0 

.WORD 0 

.WORD 0 

.WORD 0 

.WORD 0 

.WORD 0 

T17BFSTA: .BLKB 64. 
T17BEND: 

iuRlTE SUBSYSTEM READ STATUS COMMAND 

■ 

.BLKB 10-<.-TUV2A»7> 



T17PPC2: 



.WORD P.WRTSUB'.P.ACK 

.WORD T17DT2 

.WORD 0 

.WORD 10. 



T17DT2: 

.BYTE 0 

.BYTE 0 

.WORD 0 

.BLKB 66. 

T17DLV: .WORD 0 

ENDTST 



SEO 140 



;M£SSAGE TYPE 

;DATA FIELD LENGTH 

;RBPCR 

.•X5T0 

:XST1 

;XST2 

:XST3 

;XST4 (ALWAYS PRESENT FOR WRITE SUBSYSTEM 
.READ STATUS AND WRITE FIFO BUFFER 
:END OF MESSAGE BUFFER 

PACKET 



.•WRITE SUBSYSTEM WITH AC< 
:LOW ADDRESS OF DATA BLOCK 
:HI6H ADDRESS OF DATA BLOCK 
;MINIMUN MESSAGE PACKET SIZE 

.•DATA BLOCK 
:BSELO 
;BSEL1 
;SEL2 

:WRITE FIFO DATA OUTPUT BUFFER 
.•HOLDS DELAY VALUE 



L10036: 

TRAP CftETST 



L 11 



CZTUXAO TU80 FRONT END PRT B 
TEST 2: INITIALIZE #2 TEST 



5492 
549S 
5494 
5495 
5496 
5497 
5498 

5499 033132 
033132 

5500 033132 005037 

5501 033136 005037 

5502 033142 012737 
5503 



MACRO N1200 29-nAR-83 13:32 PAGE 64 



SEQ 141 



.SBTTL TEST 2: INITIALIZE #2 TEST 



THIS TEST VERIFIES THAT WRITING INTO THE TSSR RETURNS THE 
CONTROLLER TO ITS INITIALIZED STATE FROM VARIOUS CONDITIONS 



002170 
003100 

005755 002146 



BGNTST 

CLR 
CLR 
NOV 



FATFL6 
KTFLG 

fEPRTI.EPRTSU 



T2: : 

.•CLEAR FATAL ERROR ' FLAG 
;HOLD OFF KT11 

:SET UP PRIMARY ERROR MESSAGE 



5504 
5505 
5506 
5507 
5S0B 
5909 
551G 

5515 033150 004737 

5516 033154 012700 

5517 033160 004737 

5518 033164 012737 

5519 033172 

5520 033172 004737 

5521 033176 004737 
5522 
5523 
5524 
5525 
5526 
5527 
5528 

5529 033202 012737 

5530 033210 004737 

5531 033214 103426 

5532 033216 
033216 012727 
033222 000000 
033224 013727 
033230 000000 
033232 005367 
033236 001375 
033240 005367 
033244 001367 

5533 0SS246 005337 

5534 033252 001356 

5535 033254 004737 

5539 033260 010001 

5540 033262 
033262 104455 
033264 000311 
033266 003550 
033270 0116S6 

5541 035272 

5542 033272 012704 033440 



TEST 1 



017040 
034006 
017372 

000002 002164 

034030 
034120 



T21L00P: 



JSR 
MOV 
JSR 
MOV 

JSR 
JSR 



PC.DSBINT 
fTST21ID«R0 
PC.TSTSETUP 
f2.L0OPCNT 

PC.T21REST 
PC.T21RT2 



.•DISABLE INTERRUPTS 
.'ASCII MESSAGE TO IDENTIFY TEST 
:D0 INITIAL TEST SETUP 
.-PERFORM 2 ITERATIONS 

;SET COMMAND PACKET 

:SkT UP OTHER COMMAND PACKET 



.•ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR !F ERROR 



176750 033566 
016630 



000250 
002116 
177772 
177756 
033566 
020064 



IIS: 



MOV 
JSR 
BCS 
DELAY 



#65000. .T21DLY 

PC.SOFINIT 

20S 

250 



DEC 
BNE 
JSR 
MOV 
ERRDF 



T21DLY 

in 

PC.FATCHK 
R0.R1 

ERRNO.SFIERR.SFIMSG 



;SET DELAY ROUTINE 
:D0 INITIALIZE ON CONTROLLER 
:BR IF INIT WAS OK 
.•DELAY FOR A REWIND TO FINISH 

MOV 
.WORD 
MOV 
.WORD 
DEC 
BNE 
DEC 
BNE 



#250. (PC) ♦ 
0 

LSDLY.(PC)* 
0 

-6(PC) 
.-4 

-22(PC) 
.-20 



20$: 



MOV fT21 PACKET. R4 



:BUMP COUNTER DOWN 

;BR. IF MORE TIME TO GO 

;INC AND CHECK FOR MORE THAN 25 ERRORS 

.•CONTENTS OF TSSR REGISTER 

.•FATAL ERROR TSSR WAS NOT OK 

TRAP CSERDF 
.WORD 201 
.WORD SFIERR 
.WORD SFIMSG 



CZTUXAO TU80 FRONT END PRT B 
TEST 2: INITIALIZE #2 TEST 

5S43 
5S44 
5545 
5546 
5547 
5548 
5549 

5550 033276 004737 010322 

5551 033302 103407 

5552 033304 004737 020064 

5556 033310 010001 

5557 033312 
033312 104456 
033314 000312 
033316 004754 
033320 011656 

5558 033322 

5559 033322 012765 

5560 033330 004737 

5561 033334 016501 

5562 033340 010102 

5563 033342 042702 
556< 033346 052702 

5565 033352 032701 

5566 033356 001012 

5567 033360 020102 

5568 033362 001406 

5569 033364 004737 

5573 033370 
033370 104456 
033372 000313 
033374 033665 
033376 016330 

5574 033400 
033400 104406 

5575 033402 000406 

5576 033404 

5580 033404 
033404 104455 
033406 000314 
033410 033765 
033412 016330 

5581 033414 004737 020136 

5582 033420 004737 017340 

5583 033424 103002 

5584 033426 000137 033172 

5585 033432 
033432 104432 
033434 000526 
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SEO U2 



:WRITE CNARACTERISTICS COMMND (CALL TO yRTCNR) 



000000 
017104 
000000 

176377 
002200 
000100 



020064 



000000 



23$: 



35$: 



37$: 
38$: 



40$: 
63$: 



JSR 
BCS 
JSR 
NOV 
ERRHRO 



NOV 
JSR 
NOV 
NOV 
81 C 
BIS 
BIT 
BNE 
CNP 
BEQ 
JSR 

ERRHRD 



CKLOOP 
BR 

ERRDF 



JSR 
JSR 
BCC 
JNP 
EXIT 



PCURTCMR 
23$ 

PC.FATCHK 
RO.RI 

ERRN0,URTNS6,SFINSG 



fO«TSSR(R5> 
PC.WAITF 
TSSR(R5),R1 
R1«R2 

f*C<HIA00R>,R2 

fSSR!NBA,R2 

fOFL.RI 

38$ 

R1.R2 

37$ 

PC.FATCHK 

ERRNO.T21AN3.EXPREC 



40$ 

ERRN0.T210FL,EXPREC 



PCCKDROP 

PC.TSTLOOP 

63$ 

T21L00P 
TST 



.•ISSUE MITE CHAIIACTERISTICS 

;BR. IF COHNANO ISSUED OK 

:INC AND CNECK FOR NORE THAN 25 ERRORS 

.-SAVE CONTENTS OF TSSR 

;URITE CHARACTERISTISC FAILED 

TRAP CSERHRD 
.yORD 202 
.yORD WRTNS6 
.WORD SFINS6 

.•ISSUE A SOFT INITIALIZE 

.-WAIT FOR JUST THE SSR BIT TO SET 

;READ THE TSSR BACK 

:WORK REGISTER 

.•CLEAR OUT OTHER BITS 

;SONE OF THE BITS THAT SHOULD BE SET 

:IS OFF LINE BIT SET 

;6R. IF DRIVE IS OFF LINE 

.-EXPECTED (R2) » RECEIVED (R1) 

:BH. IF THEY ARE EQUAL (OK) 

:INC AND CHECK FOR NORE THAN 25 ERRORS 

.'"ERROR TRYING TO INIT AFTER WRITE NISC. 

TRAP C$ERHRD 
.WORD 203 
.WORD T21AH3 
.WORD EXPREC 

.•LOOP IF SELECTED 

TRAP C$CLP1 
.•SKIP OVER OFF-LINE STUFF 

.'DRIVE IS OFF LINE 

TRAP CSERDF 
.WORD 204 
.WORD T210FL 
.WORD EXPREC 

:TRY AND DROP UNIT 

;D0 WE NEED TO ITERATE TEST 

.'BR. IF NO LOOP REQUIRED 

.•EXECUTE AGAIN 

;ALL DONE THIS TEST 

TRAP CSEXIT 
.WORD L10045-. 



CZTUXAO TU80 FRONT END PRT B 
TEST 2: INITIALIZE #2 TEST 



5587 
5588 
5589 
5591 



033436 

5593 033440 

5594 033440 

5595 033442 

5596 033444 

5597 033446 

5598 033450 

5599 033450 

5600 0334S2 

5601 0334S4 

5602 0334S6 

5603 033460 
5604 

5605 
5606 

5608 033542 

5610 033550 

5611 033550 

5612 033552 

5613 033554 

5614 033SS6 
561 S 

5616 

5617 033560 

5618 033560 

5619 033561 

5620 033562 

5621 033564 

5622 033566 
5623 

5624 
5625 



100004 
033450 
000000 
000012 

033460 
000000 
000024 
000000 



100206 
033560 
000000 
000006 



000 
000 
000000 
000000 
000000 
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;L0CAL STORAGE FOR THIS TEST 

10-<.-TUV2At7> 



.BLKB 
T21PACKET: 

.UORD 
.WORD 
.UORD 
.WORD 

T21DATA: 

.yORD 
.WORD 
.WORD 
.WORD 
T21BFR: .BLKU 



100004 

T21DATA 

0 

10. 

T21BFR 
0 

20. 
0 

25. 



.-WRITE SUBSYSTEN MEMORY COMMAND PAC 
.BLKB 10-<.-TUV2A|7> 



T21PK2: 

.WORD 
.WORD 
.WORD 
.WORD 

.EVEN 

T21BF2: 

T21BS0: .BYTE 

T21BS1: .BYTE 

T21S2: .WORD 

T21S3: .WORD 

T21DLY: .WORD 



100206 
T21BF2 
0 
6. 



0 
0 
0 
0 
0 



SEO 143 



.•COMMAND PACKET FOR TEST 

.•WRITE CHARACTERISTICS COMMAND. WITH. ACK 

.•ADDRESS OF CHARACTERISTICS BLOCK 

.•STARTING VALUE OF BLOCK SIZE 
.'CHARACTERISTICS DATA BLOCK 
: ADDRESS OF MESSAGE BUFFER 

; LENGTH OF MESSAGE BUFFER 

: MESSAGE BUFFER 



;WRITE SUB SYS MEM COMMAND. IE AND ACK 
.•ADDRESS OF SELECT BLOCK DATA 

;SIZE OF DATA PACKET 



;BSELO AREA — "COMMAND" BYTE 
:BSEL1 AREA 
.•SEL 2 AREA 
.•DATA AREA 
; DELAY COUNTER 



B 12 



CZTUXAO TU80 FRONT END PRT b 
'EST 2: INITIALIZE #2 TEST 

5627 
5628 
5629 
5630 
S63T 

5632 033570 127 122 

5633 033665 124 123 

5634 033765 104 162 

5635 034006 111 1S6 
5636 

5637 
5638 
5639 
5640 
5641 
5642 
5643 

5644 034030 

5645 034030 

5646 034034 012701 

5647 034040 012721 

5648 0:»4044 012721 

5649 034050 005021 

5650 034052 012721 

5651 034056 012721 

5652 034062 005021 

5653 034064 012721 

5654 034070 00S021 

5655 034072 005011 

5656 034074 012702 

5657 034100 012762 

5658 034106 005742 

5659 054110 020227 

5660 034114 001371 

5661 034116 000207 

5662 034120 

5663 034120 

5664 034124 012701 

5665 034130 012721 

5666 034134 012721 

5667 034140 005021 

5668 034142 012721 

5669 034146 00S021 

5670 034150 012701 

5671 034154 005021 

5672 034156 005011 

5673 034160 000207 

5674 034162 
034162 

03^162 104401 
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LOCAL TEXT MESSAGES fOR TEST 



111 T21SSR: .ASCIZ *URITE MISCELLANEOUS CONTROL/READ STATUS COMitnd Not AcCffpttd* 

123 T21AM3: .ASCIZ *TSSR Inlt. FaUtd Afttr WRITE MISCELLANEOUS CONRTOL/READ STATUS' 

151 T210FL: .ASCIZ 'Drivt i% OFFLINE' 

1S1 TST21ID: .ASCIZ 'InU^alizttlon #2* 
.EVEN 



ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
WRITE SUBSYSTEM MEMORY COMMAND 



:SAVE THE REGISTERS 

.•START OF THE PACKET 

.-WRITE SUBSYSTEM MEM. WITH ACK. 

.•ADDRESS OF CHARAISTICS DATA BLOCK 

.•EXTENDED ADDRESS 

;SIZE OF DATA BLOCK IN BYTES 

.•ADDRESS OF MESSAGE BUFFER 





1 C IREw 1 • 












■nv 


VIC 1 m^^c 1 .n 1 


IUUUU*> 


■nw 


• 1 WUU*I » \n 1 / ▼ 




MAW 






ri B 






Mnu 

nuw 


MH (B1>« 




Mnu 
nuv 


VIC ID' R. \n 1 / ▼ 






\n 1 




Mnw 


»Cw« . \t% 1 




CLR 


(R1)« 




CLR 


(RI) 


000020 


MOV 


ff20.R2 


177777 033460 


64S: MOV 


#1 77777. T21BFR(R2) 




TST 


-(R2) 


000000 


CMP 


R2.f0 




BNE 


64S 




RTS 


PC 




T21RT2: 






SAVREG 




033550 


MOV 


fT21PK2.R1 


100206 


MOV 


f100206.(R1)« 


033560 


NOV 


fT21BF2.(R1)* 




CLR 


(R1)» 


000006 


NOV 


f6.,(R1)« 




CLR 


(R1)« 


0S3S60 


MOV 


fY21BF2.R1 




CLR 


(R1)« 




CLR 


(RI) 




RTS 


PC 




ENDTST 





:LfcNGTH OF MESSAGE BUFFER 



:NUMBER OF LOCATIONS TO BE CLEARED 

.'ALL ONES TO MESSAGE BUFFER 

.•NEXT LOCATION 

.-CHECK R2 FOR ZERO 

;BR. IF NOT AT ZERO YET 

.-RETURN 



.-SAVE THE REGISTERS 

; START OF THE PACKET 

:URITE SUBSYSTEM HEM. WITH ACK. 

.•ADDRESS OF DATA BLOCK 

; EXTENDED ADDRESS 

.•SIZE OF DATA BLOCK IN BYTES 



IE 



.•ADDRESS OF DATA FOR URT SUB SYS HEH 



: RE TURN 



LI 0045: 



TRAP CSETST 



C 12 



CZTUXAO TUSO FRONT END PRT B fUCRO N1200 
TEST 3: OFF-LINE AND REJECT REWIND 



5676 
5677 
5678 
5679 
5680 
5681 
5682 
5683 
5684 
5685 
5686 
5687 
5688 

5689 03416A 
034164 

5690 034164 

5691 034170 

5692 034174 

5697 034202 

5698 034206 

5699 034212 

5700 034216 
5701 

S702 
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.SBTTL TEST 3: OF f -LINE AND REJECT REWIND 



SEQ 145 



THIS TEST VERIFIES BASIC TAPE-NOTION COWAND DECODING AND BASIC 
OPERATION OF THE RkWiND POSITIONING CONNAND. IT DOES NOT 
NECESSARILY DENONSTRATE THAT THE TRANSPORT CAN BE REWOUND FROM AN 
ARBITRARY POSITION ON THE TAPE. SUBSEQUENT TESTS IIVLICITLY 
CHECK THE OPERATION OF THE REWIND CONIAND SINCE THEY MUST 
TYPICALLY REWIND THE TAPE IN THE NORMAL COURSE OF THEIR TESf 
SEQUENCES. THE TEST CONSISTS OF THE FOLLOWING ONE SUBTEST 



005037 002170 

005037 003100 

012737 00575S 002146 

004737 017040 

012700 035322 

004737 017i72 

012737 000002 002164 



B6NTST 

CLR 
CLR 
NOV 
JSR 
NOV 
JSR 
NOV 



FAYFL6 
KTFL6 

fEPRTI .EPRTSW 

PC.DSBINT 

fTST22ID.R0 

PC.TSTSETUP 

f2A00PCNT 



T3: : 

: CLEAR FATAL ERROR FLAG 
:HOLD OFF KT11 

:SET UP PRIMARY ERROR MESSAGE 
.-DISABLE INTERRUPTS 
:ASCII MESSAGE TO IDENTIFY TEST 
;D0 INITIAL TEST SETUP 
.PERFORM 2 ITERATIONS 



0 12 
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SEQ U6 



L. 



S704 034224 

5705 

5706 

5707 

5708 

5709 

5710 

5711 

5712 

5713 

5714 034224 
034224 
034224 

5715 034226 

5716 034232 
5717 

5718 
5719 
5720 
5721 
5722 
5723 

5724 034236 

5725 034242 

5726 034244 

5730 034250 

5731 034252 
034252 
034254 
034256 
034260 

5732 034262 

5733 034262 
5734 

5735 
5736 
5737 
5738 
5739 
5740 

5741 034266 

5742 034272 

5743 034274 

5747 034300 

5748 034302 
034302 
034304 
034306 
034310 

5740 054312 

5750 034320 

5751 034324 

5752 034330 
5755 03433* 

5754 034340 

5755 034344 

5756 034346 



T22L00P: 
♦ 

TEST 3, SUBTEST i 

VERIFIES THAT A REWIND COHNAND WITH CVC*1 CLEARS VCK 
AND RETURNS PROPER STATUS IN THE MESSAGE BUFFER. 



104402 
004737 
004737 



035356 
035450 



B6NSU8 



JSR 
JSR 



PC.T22REST 
PC,T22RT2 



:»»»»»» BEGIN SUBTEST »»»»»» 
T3.1: 

TRAP CteSUB 

:SET COmAND PACKET 

; SET UP OTHER COMHANO PACKET 



:ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



016630 
020064 



004737 
103407 
004737 
010001 

104455 
0004SS 
003SS0 
0116S6 



012704 034470 



JSR 
BCS 
JSR 
NOV 
ERRDF 



PC.SOFINIT 
20f 

PC.FATCHK 
RO.RI 

ERRNO.SFIERR.SFINSG 



20$: 



NOV 



«T22PACKET,R4 



:D0 INITIALIZE ON CONTROLLER 
;8R IF INIT WAS OK 

;INC AND CHECK FOR MORE THAN 25 ERRORS 

;CONTENTS OF TSSR REGISTER 

; Fatal error TSSR UAS NOT OK 

TRAP CSERDr 
.WORD 301 
.WORD SFIERR 
.WORD SFIHSG 

.•SUBROUTINE NEEDS PACKET ADDRESS 



yRITE CHARACTERISTICS COfWANO (CALL TO MRTCHR) 



004737 
103407 
004737 
010001 

104456 
000456 
004754 
011656 
012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 



010322 
020064 



142010 
034600 
177776 
017104 
000000 
000200 



034600 6SS: 



JSR PC.WRTCHR 

BCS 65$ 

JSR PC.FATCMK 

NOV R0.R1 

ERRHRD ERRNO.URTNSG.SFINSG 



NOV f142010.T22PK2 

NOV «T22PK2.R4 

NOV R4JSDB<RS) 

JSR PC.UAITF 

NOV TSSR(R5),R1 

NOV «SSR.R2 

CNP R1 .R2 

BEO 80$ 



; ISSUE WRITE CHARACTERISTICS 
:BR, IF CONNAND ISSUED OK 
:INC AND CHECK FOR NORE THAN 25 ERRORS 
.-SAVE CONTENTS OF TSSR 
jWRITE CHARACTERISTISC FAILED 



TRAP 
.WORD 
.WORD 
.WORD 



CSERHRD 
302 

WRTNSG 
SFINSG 



.•POSITION CONNAND (REWIND NODE) CVC-1 
;R4 * POINTER TO PACKET 
: ISSUE CONNAND 
:WAIT FOR SSR TO SET 
:6ET TSSR CONTENTS 
.•SET UP EXPECTED 
:ARE THEY EQUAL 

:aR. IF OK ESP. FUNCTKM REJFCT 



E 12 
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5757 034350 


004737 


020064 


5761 034354 




034354 


104456 




034356 


000457 




034360 


035174 




034362 


016330 




5762 034364 






034364 


104406 




5763 034366 


012703 


034512 


5764 034372 


016301 


000006 


5765 034376 


010102 


S766 034400 


042702 


000020 


5767 034404 


020102 


5768 034406 


001406 




5769 034410 


004737 


020064 


5773 034414 




034414 


104456 




034416 


000460 




034420 


035247 




034422 


016330 




5774 034424 






5775 034424 






034424 






034424 


104403 




5776 034426 


023727 


002170 


5777 034434 


002402 




5778 034436 


004737 


020136 


5779 034442 






5780 034442 


004737 


017340 


5781 034446 


103002 




5782 034450 


000137 


034224 


5783 034454 






034454 


104432 




034456 


001036 





80$: 



90S: 



999$: 



163$: 



JSR 

ERRHRO 



CKLOOP 

NOV 
NOV 
NOV 
BIC 
CNP 
BEQ 
JSR 

ERRHRO 



ENDSUB 



CAP 
BLT 
JSR 

JSR 
BCC 
JHP 
EXIT 



PC.FATCHK 

ERRNO.T22RUJ.EXPREC 



#T22BFR.R3 

XST0(R3).R1 

R1,R2 

f6IT4.R2 

R1,R2 

90$ 

PC.FATCHK 

ERRN0,T22VCK.EXPREC 



FATFLG.f25. 
999$ 

PC.CKOROP 

PCTSTLOQP 
163$ 
T22LOOP 
TST 



:INC AND CHECK FOR MORE THAN 25 ERRORS 
:TSSR INCORRECT AFTER TAPE NOTION CND 

TRAP C$ERHRD 
.UORD 303 
.UORD T22RWJ 
.UORD EXPREC 

;LOOP IF SELECTED 

TRAP C$CLP1 
.POINTER TO MESSAGE BUFFER 
;PICK UP XSTO FROM NESSAGE CJFFER 
;SET UP EXPECTED 
:VCK SHOULD BE CLEAR 
;ARE THEY EQUAL 
:BR. IF OK (GOOD) 

:INC AND CHECK FOR NORE THAN 25 ERRORS 
:VCK WASN'T CLEAR (BAD) 

TRAP C$ERHRD 
.WORD 304 
.WORD T22VCK 
.WORD EXPREC 

;»»»»»» EM) SUBTEST »»»»»» 
L10O47: 

TRAP C$ESUB 
;IS ERROR COUNT AT 25 
:BR. IF LESS THAN 25 
;TRY TO DROP THE UNIT 

;D0 WE NEED TO ITERATE TEST 
;BR. IF NO LOOP REQUIRED 
.•EXECUTE AGAIN 
.ALL DONE THIS TEST 

TRAP C$EXIT 
.WORD L10046-. 



f 12 



CZTUXAO TU60 FRONT END PUT B MACRO 111200 
TEST I: OFF-LINE AND REJECT REWIND 



29-flAR-83 13:32 PAGE 89 



5785 
5786 
5787 

5789 0S446O 

5791 054470 

5792 034470 

5793 034472 

5794 034474 

5795 034476 

5796 034500 

5797 034500 

5798 034502 

5799 034504 

5800 034506 

5801 034510 

5802 034512 
5803 

5804 
5805 

5807 034574 

5809 034600 

5810 034600 

5811 034602 

5812 034604 

5813 034606 
5814 

5815 

5816 034610 

5817 034610 

5818 034611 

5819 034612 

5820 034614 
5821 

5822 
5823 
5824 

5825 034616 

5826 034620 

5827 034622 

5828 034624 

5829 034626 
5850 

5831 



100204 
034S00 
GOOOOO 
000012 

034512 
000000 
000024 
000000 
000007 



100206 
034610 
000000 
000006 



000 
000 
000000 
000000 



100201 
100205 
100210 
100211 
177777 



:L0CAL STORAGE FOR THIS TEST 

10-<.-TUV2A87> 



.BLKB 
T22PACKET: 

.yORD 
.WORD 
.WORD 
.yORD 

T22DATA: 

.WORD 
.yORD 
.WORD 
.WORD 
.WORD 
T228FR: .BLKW 



100204 

T22DATA 

0 

10. 

T22BFR 
0 

20. 
0 

7 

25. 



: WRITE SUBSYSTEM NENORV CONRAND PACKET 
.BLKB 10-<.-TUV2AI7> 



T22PK2: 

.WORD 
.WORD 
.WORD 
.WORD 

.EVEN 

T228F2: 
T22BS0: .BYTE 
T228S1: .BYTE 
T22S2: .WORD 
T22S3: .WORD 



100206 
T22BF2 
0 
6. 



0 
0 
0 
0 



.EVEN 

;TAPE NOTION PACKET COfWANO VALUES 



T22RD: .WORD 
T22WRT: .WORD 
T22POS: .WORD 
T22F0R: .WORD 
.WORD 



100201 
100205 
100210 
100211 
177777 



SEQ 148 



;COIWAND PACKET FOR TEST 

;WR1TE CHARACTERISTICS CONRAND. WITH IF. ACK 
:ADDRESS OF CHARACTERISTICS BLOCK 

.•STARTING VALUE OF BLOCK SIZE 
.'CHARACTERISTICS DATA BLOCK 
.'ADDRESS OF MESSAGE BUFFER 

.LENGTH OF MESSAGE BUFFER 

.•SELECT DRIVE 7 
.'MESSAGE BUFFER 



.-WRITE SUB SYS MEM COMMAND, IE AND ACK 
.'ADDRESS OF SELECT BLOCK DATA 

;SIZE OF DATA PACKET 



.BSELO AREA 
;BSEL1 AREA 
;SEL 2 AREA 
.•DATA AREA 



.'READ TAPE FORWARD 
.'WRITE TAPE FORWARD 
.'POSITION TAPE 
.•FORMAT TAPE 
;END OF DATA 
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$E0 U9 



5833 
5834 
5835 
5836 
5837 

5838 034630 

5839 034725 

5840 03502S 
5641 035100 

5842 035174 

5843 035247 

5844 035322 
5845 

S846 
5847 
5848 
5849 
5850 
5851 
5852 

5853 0SS3S6 

5854 035356 

5855 035362 

5856 035366 

5857 035372 

5858 035376 

5859 035400 

5860 03S404 

5861 03541C 

5862 035412 

5863 035416 
035420 
035424 

5866 03S4S0 

5867 03S4S6 

5868 035440 

5869 035444 

5870 035446 

5871 035450 

5872 035450 

5873 035454 

5874 035460 

5875 035464 

5876 035470 

5877 035472 

5878 035476 

5879 035500 
035504 
035506 

5882 035510 

5883 035512 
035514 
035514 
035514 



5864 
5865 



5880 
5881 



5884 



012701 
012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
012711 
012702 
012762 
005742 
020227 
001371 
000207 



012701 
012721 
012721 
005021 
012721 
005021 
012701 
005021 
005011 
005011 
000207 



104401 



LOCAL TEXT MESSAGES FOR TEST 



127 


122 


111 


T22SSR: 


.ASCIZ 


124 


123 


123 


T22AM3: 


.ASCIZ 


104 


162 


151 


T220FL: 


.ASCIZ 


124 


123 


123 


T22TH: 


.ASCIZ 


124 


123 


123 


T22RUJ: 


.ASCIZ 


103 


126 


103 


T22VCK: 


.ASCIZ 


117 


146 


146 


TST22IP: 


.EVEN 



*URITE MISCELLANEOUS CONTROL/READ STATUS COMNnd Net Acctpttd* 

'TSSR Inlt. Falltd Afttr WRITE MISCELLANEOUS CONRTOL/REAO STATUS* 

*Drivt 7 Stltct Fafltd To Stt "OfL" In TSSR' 

'TSSR Incorrtct Afttr T«p« Notion CoMtnd To Off«Lfnt Otvlct* 

'TSSR Not Corrtct Afttr REWIND With VCK Stt* 

*CVC Stt. D1dn"t Rtstt VCK In Htsstgt Bufftr* 

.ASCIZ *Off-Llnt And Rtjtct Rtwfnd' 



ROUTINE TO RESTORE COWUND PACKET TO START-UP (DEFAULT) VALUES 
WRITE SUBSYSTEM MEMORY COMMAND 



T22REST: 



034470 
100204 
034500 

000012 
034512 

000024 

000007 
000020 

177777 034512 
000000 



034600 
100206 
034610 

000006 

034610 



641: 



SAVREG 

MOV 

MOV 

MOV 

CLR 

MOV 

MOV 

CLR 

MOV 

CLR 

MOV 

MOV 

MOV 

TST 

CMP 



T22RT2: 



RTS 

SAVREG 

MOV 

MOV 

MOV 

CLR 

MOV 

CLR 

MOV 

CLR 

CLR 

CLR 

RTS 

ENDTST 



fT22PACKET.R1 
#100204. (RD* 
«T22DATA,(R1)4 
(RD* 

f10..(R1)i 

«T22BFR,(R1)« 

(RD* 

f20.«(R1)« 
(R1)« 
f7,(R1) 
#20.R2 

f177777,T22BFR(R2) 

-(R2) 

R2.f0 

64$ 

PC 



fT22PK2.R1 

#100206. (R1)« 

#T228F2«(R1)« 

(R1)« 

#6..(R1)« 

(R1>* 

#T22Br2.R1 

(R1)« 

(R1) 

(R1) 

PC 



SAVE THE REGISTERS 

START OF THE PACKET 

WRITE SUBSYSTEM MEM. WITH ACK. IE 

ADDRESS OF CHARAISTICS DATA BLOCK 

EXTENDED ADDRESS 

SiZE OF DATA BLOCK IN BYTES 

ADDRESS OF MESSAGE BUFFER 

LENGTH OF MESSAGE BUFFER 

SELECT DRIVE SEVEN 

NUMBER OF LOCATIONS TO BE CLEARED 

ALL ONES TO MESSAGE BUFFER 

BUMP R2 DOWN 

IS R2 AT ZERO YET 

KEEP GOING UNTIL DONE 

RETURN 



SAVE THE REGISTERS 

START OF THE PACKET 

WRITE SUBSYSTEM MEM. WITH ACK. 

ADDRESS OF DATA BLOCK 

EXTENDED ADDRESS 

SIZE OF DATA BLOCK IN BYTES 

POINT TO DATA SEL AREA 



;LAST LOC TO BE CLEARED 
: RE TURN 

Li 0046. 



IE 



TRAP 



CSETSI 



! 



H 12 



CZTUXAO TUSO FRONT END PRT B 
TEST 4: BASIC WHITE DATA 



5886 
5887 
5888 
5889 
5890 
5891 
5892 
5893 
589< 
5895 
5896 
5897 
5898 
5899 

5900 035516 
035516 

5901 035516 005037 

5902 035522 005037 

5903 035526 012737 

5904 035534 005037 

5905 035540 004737 

5910 035544 004737 

5911 035550 012700 

5912 035554 004737 

5913 035560 012737 
5914 

5915 
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SEQ 150 



.S8TTL TEST 4: BASIC WITE DATA 



THIS TEST VERIFIES TNAT THE MITE DATA (MEXT) COfftAND OPERATES 
PROPERLY. UP TO THt POINT OF CHECKING THAT THE DATA WAS ACTUALLY 
WRITTEN ONTO THE TAPE CORRECTLY. CHECKING IN THIS TEST IS 
LifllTED TO VERIFYING THAT THE COMNAND TERMINATED CORRECTLY WITH 
THE CORRECT REGISTER, MESSAGE BUFFER AND RAN CONTENTS. 

THE TEST CONSISTS OF THE FOLLOWING 5 SUBTESTS 



002170 
003100 

00S7SS 002146 

003102 

020230 

017040 

041251 

017372 

000001 002164 



BGNTST 

CLR 
CLR 
NOV 
CLR 
JSR 
JSR 
NOV 
JSR 
NOV 



FATFL6 
KTFL6 

ffEPRTI.EPRTSW 

KTENABLE 

PCKTOFF 

PC.DSBINT 

fTST23lD.R0 

PC.TSTSETUP 

f 1 AOOPCNT 



T4: : 

; CLEAR FATAL ERROR FLAG 
:HOLD OFF KT11 

;SET UP PRIMARY ERROR MESSAGE 
:TURN OFF KT11 
;TURN OFF KT11 
.•DISABLE INTERRUPTS 
.'ASCII MESSAGE TO IDENTIFY TEST 
;D0 INITIAL TEST SETUP 
.-PERFORM 1 ITERATIONS 



I 12 



CZTUXAO TU80 FHONT END PRT B 
TEST 4: BASIC UBITE DATA 



5917 035566 

5918 

5919 

5920 

5921 

5922 

5921 

5924 

5925 

5926 

5927 

5928 

5929 

5930 

5931 

5932 

5933 

5934 

5935 

5936 035566 
035566 

035566 104402 

5937 035570 013701 

5938 03SS74 000241 

5939 035576 006101 

5940 035600 010137 

5941 035604 004737 

5942 035610 004737 

5943 035614 004737 
5944 

5945 
5946 
5947 
5948 
5949 
5950 

5951 035620 004737 

5952 035624 103407 

5953 035626 004737 

5957 035632 010001 

5958 035634 
035634 104455 
035636 000621 
035640 003550 
035642 011656 

5959 035644 

5960 035644 012704 
5961 

5962 
5963 
5964 
5965 
5966 
5967 

5968 035650 004737 

5969 035654 103407 

5970 035656 004737 



MACRO HI 200 29-nAII-83 13:32 PAGE 92 



T23L00P: 
♦ 

TEST 4, SUBTEST ^ 

VERIFIES THAT WRITE DATA CONHANDS WITH CVC«1 AND THE 
SIMP BYTES (SyB) BIT CLEAR OPERATES PROPERLY. THE 
BYTE COUNT (RECORD SIZE) VARIES FRON 20 THROUGH 64K 
IN VARYING INCREMENTS (DEPENDING UPON UHETHER OR NOT 
THE DIAGNOSTIC IS RUNNING IN THE LONG VERIFICATION 
NODE). THE TAPE IS NOT REWOUND BETWEEN SUCCESSIVE 
RECORDS BUT IS REWOUND AFTER THE FINAL RECORD IS 
WRITTEN. AN INCREMENTING COUNT PATTERN IS SUPPLIED 
IN THE DATA BUFFER. AFTER EACH BLOCK IS WRITTEN, THE 
TSSR AND TS8A REGISTERS, AND THE MESSAGE BUFFER. 



SEQ 151 



003074 



040010 
041266 
041422 
041360 



010322 
020064 



BGNSUB 



NOV 
CLC 
ROL 
NOV 
JSR 
JSR 
JSR 



FRES12.R1 
R1 

R1,T23RSZ 
PC.T23REST 
PC,T23RT3 
PC.T23RT2 



;»»»»»» BEGIN SUBTEST »»»»»» 
T4.1: 

TRAP CSBSUB 
:6ET SIZE OF AVAILIA8LE MEMORY 
.'CLEAR THE CARRY BIT 
.-MAKE INTO BYTES 
.•STORE IN TEST FOR USE LATER 
;SkT COMMAND PACKET 
.•RESTORE PACKET 
.SET UP OTHER COMMAND PACKET 



.•ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



016630 




JSR 


PC.SQFINIT 


;D0 INITIALIZE ON CONTROLLER 




020064 




BCS 


20ft 


:BR IF INIT WAS OK 






JSR 


PC.FATCHK 


:INC AND CHECK FOR MORE THAN 25 ERRORS 






MOV 


R0.R1 


.CONTENTS OF TSSR REGISTER 








ERRDF 


ERRNO.SFIERR.SFIHSG 


.•FATAL ERROR TSSR WAS NOT OK 

TRAP 
.WORD 
.WORD 
.WORD 


CfERDF 
401 

SFIERR 
SF IMSG 




20ft: 










037650 




MOV 


fT23PACKET.R4 


.•SUBROUTINE NEEDS PACKET ADDRESS 



;WRITE CHARACTERISTICS COMMAND (CALL TO URTCNR) 



JSR 
BCS 
JSR 



PC.MRTCNR 
23i 

PC.fATCHK 



: ISSUE WRITE CHARACTERISTICS 

:BR. IF COMNANB ISSUED OK 

.mf Aim fMgtK torn wmt tham ?5 tainas 



CZTUXAO TU80 FRONT END PRT B 
TEST 4: BASIC MITE DATA 



J 12 

MACRO HI 200 29-MAR-8S 13:32 PAGE 92-1 



SEQ M2 



5974 03S662 

5975 035664 
035664 
035666 
035670 
035672 

5976 035674 
035674 

5977 
5978 
5979 
5980 
5981 
5982 
5W3 

5984 035676 

5985 035702 

5986 035706 
5987 

5988 
5989 
5990 
5991 
5992 
5993 

5994 035714 

5995 035722 

5996 035726 

5997 035730 
5996 035734 

5999 035740 

6000 035744 

6001 035750 

6002 035754 

6003 035760 

6004 035762 

6005 035764 

6010 035770 
035770 
035772 
035774 
035776 

6011 036000 
036000 

6012 036002 
6015 036006 

6014 036012 

6015 036014 

6016 036016 

6020 036022 
036022 
036024 
036026 
036030 

6021 036032 
036032 

6022 036034 



010001 

104456 
000622 
004754 
011656 

104406 



004737 
012703 
013737 



012737 
012704 
010300 
004737 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000623 
00S011 
011670 

104406 
016501 
012702 
020102 
001406 
004737 

104456 
000624 
041110 
016330 

104406 
062703 



23S: 



NOV 
ERRNRD 



CKLOOP 



RO.RI 

ERRNO.URTNSG.SFINSG 



.-SAVE CONTENTS Of TSSR 
.yRITE CHARACTER! ST ISC FAILED 

TRAP 
.yORD 
.UORD 
.UORD 

.LOOP IF SELECTED 

TRAP 



CIERNRD 

402 

URTHSG 
SFINSG 

CSCLP1 



; ISSUE REWIND CONNANO TO SELECTED TAPE DRIVE 



010424 
000024 
003072 



040002 65$: 



JSR 
NOV 
NOV 



PC, REWIND 
#20. .R3 
FREE.T23y6 



.'CALL THE TAPE REWIND 
.•STARTING RECORD SIZE 
; STARTING WRITE BUFFER ADDRESS 



.•WRITE DATA.CVC>1 .ACK CONNAND 



140005 
040000 

020356 
040006 
177776 
017104 
000000 
000200 



020064 



OAOOOO 



NOV #1 40005. T23PK3 

NOV fT2SPK3.R4 

NOV R3.R0 

JSR PC.FILLNEN 

NOV R3.T23SZ 

NOV R4.TSDB(R5) 

JSR PC.WAITF 

NOV TSSR(RS>.R1 

NOV fSSR.R2 

CNP R1.R2 

BEQ 80$ 

JSR PC.FATCHK 

ERRHRD ERRNO.WRTERR.PKTSSR 



;WRITE DATA.CVC*1.ACK CONNAND 
;SfcT UP R4 WITH PACKET ADDRESS 
;SET PATTERN IN CORRECT REGISTER 
;FILL NENORV WITH RECORD SIZE 
:SET UP RECORD SIZE IN PACKET 
; ISSUE CONNAND 
;WAIT FOR SSR TO SET 
;GET TSSR CONTENTS 
;SET UP EXPECTED 
;ARE THEY EQUAL 
;BR. IF OK 

;INC AND CHECK FOR NORE THAN 25 ERRORS 
;TSSR IMORRECT AFTER WRITE DATA 



177776 
040000 



020064 



80$: 
85$: 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
403 

URTERR 
PKTSSR 



CKLOOP 




.•LOOP IF SELECTED 






TRAP CSCLPI 


NOV 


TSBA(RS).R1 


:GET TSBA CONTENTS 


NOV 


fT23PKS.R2 


.•SET UP EXPECTED 


CNP 


R1.R2 


.ARE THEY EQUAL 


BEO 


90$ 


;BR. IF TSBA IS CORRECT 


JSR 


PC.FATCHK 


;INC AND CHECK FOR NORE THAN 25 ERRORS 


ERRNRD 


ERRNO.T23BA.EXPREC 


:TSBA WAS NOT CORRECT AFTER WRITE DATA 



001750 



90$: 
115$: 



CKLOOP 

ADD #1000. .R3 



TRAP C$ERHRD 

.WORD 404 

.WORD T238A 

.WORD EXPREC 

;LOOP IF SELECTED 

TRAP C$CLP1 
rNfUT WgCORP S17f/DATA PATTERN 



CZTUXAO TU80 FRONT END PKT B 
TEST 4: BASIC WRI'iE OATA 



K 12 

MACRO ni200 29-MAR-83 13:i2 PACE 92-2 



6023 036040 


02C337 


040010 


6024 036044 


0G200S 




6025 036046 


020327 


1 77776 


6026 036052 


001402 




6027 036054 


000137 


035706 


6C28 036060 




6029 036060 


004737 


041422 


6030 036064 


004737 


041360 


6031 036070 


004737 


010424 


6032 036074 


103407 


6033 036076 


010001 




6034 036100 


004737 


020064 


6038 036104 




036104 


1044S6 




036106 


000625 




036110 


040401 




036112 


011670 




6039 036114 






6040 036114 






036114 






036114 


104403 




6041 036116 


023727 


002170 


6042 036124 


002402 




6043 036126 


004737 


020136 


6044 036132 







1201: 



130t: 



C«P 
B6E 

BEO 

JSR 
JSR 
JSR 
BCS 
NOV 
JSR 

ERRHRD 



999(: 



ENDSUB 



BLT 
JSR 



R3.T23R$2 
120t 

R3.ff65534. 

1?0S 

65$ 

PC.T23RT3 

PC.T23RT2 

PC. REWIND 

130S 

R0.R1 

PC.FATCNK 

ERRN0.T23RUN,PKTSSR 



FATFLG.f25. 
999S 

PC.CKDROP 



;IS R3 OVER NAX RECORD SIZE 
;IF RECORD SUE IS TOO BIG QUIT 
;ENO OF SUBTEST HAX RECORD SIZE 
:BR. IF COMPLETED 
;D0 NORE RECORDS 

.'RESTORE PACKET 

.CLEAN UP PACKET 

.•ISSUE REWIND COMMAND WITH WAIT 

;BR. IF TSSR IS OK (GOOD) 

.•SAVE TSSR CONTENTS 

;INC AND CHECK FOR MORE THAN 25 ERRORS 
.TSSR IS INCORRECT AFTER REWIND 

TRAP CSERHRD 
.WORD 405 
.WORD T23RWN 
.WORD PKTSSR 

;»»»»»» END SUBTEST »»»»»» 
LI 0051: 

TRAP CSESU6 
;IS ERROR COUNT AT 25 
;BR. IF LESS THAN 25 
:TRV TO DROP THE UNIT 



L 12 



CZTUXAO TU80 FRONT END PftT B 
• EST 4: BASIC MITE DATA 

6046 
6047 
6048 
6049 
6050 
6051 
60S2 
60S3 
6054 
6055 
6056 
6057 

6058 036132 
036132 
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:TEST 4. SUBTEST 2 



SCO 154 



;VERIFIES THAT URITt DATA CONRANDS WITH CVC*1 AND THE 
;SUAP BYTES (SWB) BIT SET OPERATES PROPERLY. THE TEST 
:SEQUENCE IS IDENTICAL TO THAT USED IN SUBTEST 2. 
;THE RESULTS, EXCEPT FOR RAN CONTENTS. SHOULD BE THE SAME 



036132 

6059 036134 

6060 036140 
6061 

6062 
6063 
6064 
6065 
6066 
6067 

6068 036144 

6069 036150 

6070 036152 

6074 036156 

6075 036160 
036160 
036162 
036164 
036166 

6076 036170 

6077 036170 
6078 

6079 
6080 
6081 
6082 
6083 
6084 

6085 036174 

6086 036200 

6087 036202 

6091 036206 

6092 036210 
036210 
036212 
036214 
036216 

6093 036220 

6094 036220 

6095 036224 
6096 



104402 
004737 
004737 



041266 
041360 



B6NSUB 



JSR 
JSR 



PC.T2SREST 
PC.T23RT2 



:»»»»»» BEGIN SUBTEST »»»»»» 
T4,25 

TRAP CtBSUB 

;SET COPWAND PACKET 

;SET UP OTHER CONNAND PACKET 



.•ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



016630 
020064 



004737 
103407 
004737 
010001 

104455 
000626 
003550 
011656 



012704 037650 



JSR 
BCS 
JSR 
NOV 
ERRDF 



PC.SOPINIT 
20t 

PC.FATCNK 
R0.R1 

ERRNO.SFIERR.SFIHSfi 



20$: 



mv 



fT23PACKET.R4 



:D0 INITIALIZE ON CONTROLLER 
:BR IF INIT WAS OK 

;INC AND CHECK FOR MORE THAN 25 ERRORS 

.'CONTENTS OF TSSR REGISTER 

.•FATAL ERROR TSSR WAS NOT OK 

TRAP 
.WORD 
.WORD 
.WORD 

.•SUBROUTINE NEEDS PACKET ADDRESS 



CSERDF 
406 

SFIERR 
SFINSG 



.•WRITE CHARACTERISTICS COMIAND (CALL TO WRTCNR) 



004737 
103407 
004737 
010001 

104456 
000627 
004754 
011656 

012703 
013737 



010322 
020064 



000024 

003072 040002 



23S: 
65$: 



JSR PC.WRTCHR 

BCS 23i 

JSR PC.FATCHK 

NOV R0.R1 

ERRHRD ERRN0.WRTNS6. SFINSG 



NOV #20.. R3 
NOV FREE.T23UB 



.•ISSUE WRITE CHARACTERISTICS 

;BR. IF COMNAND ISSUED OK 

;INC AND CHECK FOR NORE THAN 25 ERRORS 

.SAVE CONTENTS OF TSSR 

.•WRITE CHARACTERISTISC FAILED 

TRAP CSERHRD 
.WORD 407 
.WORD WRTHS6 
.WORD SF INS6 

;STARTING RECORD SIZE 
.STARTING WRITE BUFFER ADDRESS 



CZTUXAO TU80 FRONT END "RT B 

TEST 4: BASIC WRITE DATA 

6099 
6100 
6101 
6102 

6103 036232 012737 1S000S 

6104 036240 012704 040000 

6105 036244 010300 

6106 036246 004737 0203S6 

6107 036252 010337 040006 

6108 036256 010465 177776 

6109 036262 004737 017104 

6110 036266 016501 000000 

6111 036272 012702 000200 

6112 036276 020102 

6113 036300 001406 

6114 036302 004737 020064 

6118 036306 
036306 104456 
036310 000630 
036312 005011 
036314 011670 

6119 036316 
036316 104406 

6120 036320 016501 

6121 036324 012702 

6122 036330 020102 

6123 036332 001406 

6124 036334 004737 

6128 036340 
036340 104456 
036342 000631 
036344 041110 
036346 016330 

6129 0363S0 
036350 104406 

6130 036352 020327 007376 

6131 0363S6 002057 

6132 036360 004737 041360 

6133 036364 012737 000400 

6134 036372 112737 000000 

6135 036400 112737 000000 

6136 036406 012704 037760 

6137 036412 010465 177776 

6138 036416 004737 017220 

6139 036422 103407 

6140 036424 010001 

6141 036426 004737 020064 

6145 036432 
036432 104456 
036434 000632 
036436 041162 
036440 011670 

6146 036442 
036442 104406 

6147 036444 004737 041360 

6148 036450 012737 000400 

6149 036456 112737 000001 



n 12 
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yRITE DATA.CVC*1.ACK,SyB COWIANO 



040000 



177776 
040000 



020064 



BOS: 
85t: 



040014 
040012 
040013 



NOV 
NOV 
NOV 
JSR 
NOV 
NOV 
JSR 
NOV 
NOV 
CHP 
BEQ 
JSR 

ERRHRD 



CKLOOP 

NOV 
NOV 
CNP 
BEQ 
JSR 

ERRHRD 



040014 
040012 



90S: CKLOOP 

CNP 

B6E 

JSR 

NOV 

NOVB 

NOVB 

NOV 

NOV 

JSR 

BCS 

NOV 

JSR 

ERRHRD 



92S: CKLOOP 

JSR 
NOV 
NOVB 



f15uOOS,T23PK3 

fT23PK3.R4 

R3.R0 

PC.FILLNEN 

RS,T23S2 

R4,TSDB(R5) 

PC.UAITF 

TSSR(R5).R1 

fSSR,R2 

R1.R2 

BOS 

PC.FATCHK 

ERRNO«URTERR,PKTSSR 



TSBA(R5),R1 
«T23PK3.R2 
R1.R2 
90S 

PC.FATCHK 
ERRN0.T23BA.EXPREC 



R3.f7376 
11SS 

PC,T23RT2 

f2S6.,T23S2 

fO,T23BSO 

fO,T23BS1 

#T23PK2,R4 

R4,TSDB(R5) 

PC.CHKTSSR 

92S 

R0«R1 

PC.FATCHK 

ERRNO.T23WSS.PKTSSR 



PC.T25RT2 

f2$6..T23S2 

f1.T23BS0 



:URITE DA7A.CVC>1 .ACK.SUB CQMMND 
; SET UP R4 WITH PACKET ADDRESS 
;SET PATTERN IN COBRECT RE6ISTER 
.FILL NENORV WITH RECORD SIZE 
:SET UP RECORD SIZE IN PACKET 
.•ISSUE CONNAND 
.WAIT FOR SSR TO SET 
;6ET TSSR CONTENTS 
.-SET UP EXPECTED 
;ARE THEY EQUAL 
;BR. IF OK 

;INC AND CHECK FOR NORE THAN 25 ERRORS 
;TSSR INCORRECT AFTER WRITE DATA 

TRAP CSERHRD 
.WORD 408 
.WORD WRTERR 
.WORD PKTSSR 

.•LOOP IF SELECTED 

TRAP CSCLP1 

;6ET TSBA CONTENTS 

;SET UP EXPECTED 

;ARE THEY EQUAL 

;BK. IF TSBA IS CORRECT 

:INC AND CHECK FOR NORE THAN 25 ERRORS 

;TSBA WAS NOT CORRECT AFTER WRITE DATA 

TRAP CSERHRD 
.WORD 409 
.WORD T23BA 
.WORD EXPREC 

.•LOOP IF SELECTED 

TRAP CSCLP1 
;ONLY CHECK RAN UNTIL ITS FULL 
:IT WRAPS AROUND ETC. 
;NAKE SURE PACKET AND DATA ARE CLEAN 
; STARTING RAH ADDRESS 
:STQP INTERNAL TUV05 DIAGNOSTICS 
;SIZE OF RAN READ 
;SET R4 WITH PACKET ADDRESS 
: ISSUE WRITE SUB SYS NEN CONNAND 
.CHECK TSSR AND WAIT FOR SSR TO SET 
;BR. IF NO ERRORS IN TSSR 
•SAVE TSSR 

•INC AND CHECK FOR NORE THAN 25 ERRORS 
.•TSSR BAD AFTER WRITE SUB SYS NEN 

TRAP CSERHRD 
.WORD 410 
.WORD T2SWSS 
.WORD PKTSSR 

;LOOP IF SELECTED 

TRAP CSCLP1 
;NAKE SURE PACKET AND DATA ARE CLEAN 
; STARTING RAN ADDRESS 
?RFAP m CQWAMD f OR yBiT£ SUB. &l&-fl> 



C2TUXA0 TU80 FRONT END PRT B 
TEST 4: BASIC WRITE DATA 







nnnAA? 
UUUUUc 






novB 












nOV 






17777<t 

Mil lO 




t9»s 








U 1 f ecu 






■ CD 


61 S4 QUS06 








DCS 


61 SS 016S10 










mv 


61 S6 O'USI? 




UcwwO*! 






ICB 

Jan 


6160 0MS16 


wwC f V J 


001 7S0 




1 19«: 


Ann 


6161 016S22 


020^^7 


0^001 0 
WW 1 w 






6162 036S?6 










But 






177776 

till IQ 








6164 036S34 


001402 








DEW 


61 6S 036S36 


000137 


036224 






JNP 


6166 0ttS42 






1 CV9m 


6167 036S42 


004737 


041 360 

w^ ■ vTOV 






6168 036S46 


004737 


010494 






KB 

Jin 


6169 036S52 

WIW7 V^W^^fc 


103407 








BUS 


6170 036SS4 


010001 










6171 036SS6 

W < * 1 V ^w ^ ^ w 


004737 

WW" 9 J 9 


020064 






JSR 


61 75 036S62 












036 S62 


1044S6 








036S64 


000634 










036S66 


040401 

W^ W~ W 1 










0S6S70 


011670 










6176 036S72 








130$: 




6177 036572 








EN0SU6 


036572 










036572 


104403 










6178 036574 


023727 


002170 


000031 




CUP 


6179 036602 


002402 








BLT 


6180 036604 


004737 


020136 






JSR 


6181 036610 








999$: 



N 12 
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f2,T23BS1 

fT23PK2,R4 

R4,TSDB(RS) 

Pr.CMKTSSR 

115> 

RO.RI 

PCFATCNK 

#1000.. R3 

R3,T23RSZ 

120$ 

R3, #65534. 

126$ 

65$ 

PC.T23RT2 
PC. REWIND 
130$ 
RO.RI 
PC.FATCNK 

ERRN0,T23RWN.PKTSSR 



FATFLC,f25. 
999$ 

PC.CKDROP 



SIZE OF RAN READ 

SET R4 WITH PACKET ADDRESS 

ISSUE WRITE SUB SYS HEN CHD (READ RAN) 

CHECK TSSR AND WAIT FOR SSR TO SET 

BR, IF NO ERRORS IN TSSR 

SAVE TSSR 

INC AND CHECK FOR NORE THAN 25 ERRORS 

NEXT RECORD SIZE/DATA PATTERN 

IS R3 OVER NAX RECORD SIZE 

IF RECORD SIZE IS TOO BIG QUIT 

END OF SUBTEST NAX RECORD SIZE 

BR, IF CONPLETED 

DO NORE RECORDS 

CLEAN UP PACKET 

ISSUE REWIND COMHAND WITH WAIT 
BR, IF TSSR IS OK (GOOD) 
SAVE TSSR CONTENTS 

INC AND CHECK FOR NORE THAN 25 ERRORS 
TSSR IS INCORRECT AFTER REWIND 

TRAP CSERHRD 
.WORD 412 
.WORD T23RWN 
.WORD PKTSSR 



;»»»»»» END SUBTEST »»»»»» 
L10052: 

TRAP C$ESUB 
;IS ERROR COUNT AT 25 
;BR. IF LESS THAN 25 
:TRV TO DROP THE UNIT 



B 13 



C2TUXA0 TU80 FRONT END PRT B 
TEST ii BASK UfilTE DATA 

6183 
61 84 
61 8S 
6186 
6187 
6188 
6189 
6190 
6191 
6192 
6193 

6194 036610 
036610 

036610 104A02 
M9S 036612 004737 041266 

6196 036616 004737 041422 

6197 036622 0C4737 041360 
6198 

6199 
6200 
6201 
6202 
6203 
6204 

6205 036626 004737 016630 

6206 036632 103^07 

6207 036634 004737 020064 

6211 036640 010001 

6212 036642 
036642 1044SS 
036644 00063S 
036646 003SS0 
036650 011656 

6213 036652 

6214 036652 
6215 
6216 

6217 
6218 
6219 
6220 
6221 

6222 036656 004737 010322 

6223 036662 103407 

6224 036664 004737 020064 

6228 036670 010001 

6229 036672 
036672 104456 
036674 000636 
056676 004754 
036700 011656 

6230 
6231 
6232 
6233 
6234 
6235 
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:TEST 4. SUBTEST 3 



:0 157 



.'VERIFIES THAT A URiTE COHNAND WITH AN ILLEGAL NODE 
.•FIELD OR AN ILLEGAL BUFFER ADDRESS IS REJECTED WITH 
:THE PROPER ERROR STATUS AND THAT TAPE DOES NOT NOVE 



BGNSUB 



JSR 
JSR 
JSR 



PC.T23REST 

PC.T23RT3 

PC,T23RT2 



;»»»»»» BEGIN SUBTEST »»»»»» 
T4.3: 

TRAP CSBSUB 

:SET CONNAND PACKET 

; RESTORE PACKET 

;SET UP OTHER CONNAND PACKET 



; ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



JSR 
BCS 
JSR 
NOV 
ERRDF 



PC.SOFINIT 
20$ 

PC«FATCHK 
R0.R1 

ERRN0.SFIERR.SFIMS6 



012704 037650 



201: 



NOV 



fT23PACKET.R4 



;D0 INITIALIZE ON CONTROLLER 
;BR IF INIT UAS OK 

;INC AND CHECK FOR MORE THAN 25 ERRORS 

.•CONTENTS OF TSSR REGISTER 

.'FATAL ERROR TSSR WAS NOT OK 

TRAP CSERDF 
.WORD 413 
.WORD SFIERR 
.WORD SFINSG 

.'SUBROUTINE NEEDS PACKET ADDRESS 



;UR1TE CHARACTERISTICS COIWAND (CALL TO URTCHR) 



JSR PC.URTCHR 

BCS 23$ 

JSR PC.FATCHK 

nOV R0.R1 

ERRHRD ERRNO.URTNSG. SFINSG 



.'ISSUE WRITE CHARACTERISTICS 

.'BR. IF COMNAND ISSUED OK 

;INC AND CHECK FOR MORE THAN 25 ERRORS 

;SAVE CONTENTS OF TSSR 

;URITE CHARACTERISTISC FAILED 

TRAP CCERHRD 
.WORD 414 
.WORD WRTNS6 
.WORD SF INS6 



;MR]TE DATA. ACK. ILLEGAL BITS 



CZTUXAO TU80 FRONT END PRT B 
TEST 4: BASIC MITE DATA 



C 15 

fUCRO N1200 29-RAR-S5 13:32 PAGE 94-1 



6236 

6237 036702 

6238 036710 

6239 036716 

6240 036724 

6241 036732 

6242 036736 

6243 036742 

6244 036746 

6245 036752 

6246 036756 

6247 036760 
624S 036762 

6252 036766 
036766 
036770 
036772 
036774 

6253 036776 
036776 

6254 037000 
037000 
037000 

6255 037002 

6256 037010 

6257 03701? 
6256 037016 



104405 040000 23$: 

003072 040002 

000001 040002 

000400 040006 

040000 

177776 

017104 

000000 

100206 



020064 



012737 
013737 
062737 
012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000637 
040226 
011670 

104406 



104403 

023727 002170 000031 
002402 

004737 020136 



SOS: 



mv 

NOV 
ADD 
NOV 
NOV 
NOV 
JSR 
NOV 
NOV 
CNP 
BEQ 
JSR 
ERRHRD 



CKLOOP 
ENDSUB 



f1 04405. T23PIC3 

PREE.T23yB 

fVTi3UB 

f?5o..T23SZ 

fT23PK3.R4 

R4.TSDB(R5> 

PC.UAITP 

TSSR(ft5).R1 

#SSR!SC!BIT1!BIT2.R2 

R1.R2 

80$ 

PC.FATCHK 

ERRN0.T23TN.PKTSSR 



999$: 



CNP PAT PLC. #25, 
BLT 999$ 
JSR PC.CKDROP 



;WRI7E DATA. ACK. ILLEGAL BITS 
;SET LP yRITE BUFFER ADDRESS 
;NAKE ADDRESS ODD (ILLEGAL) 
.SET UP BUFFER SIZE 
:R4 * POINTER TO PACKET 
.'ISSUE COWAND 
:UAIT FOR SSR TO SET 
;GET TSSR CONTENTS 
;SET UP EXPECTED 
:ARE THEY EQUAL 

;BR. IF CK ESP. FUNCTION REJECT 

;INC AND CHECK FOR NORE THAN 25 ERRORS 

;TSSR INCORRECT AFTER URITE CONNANO 

TRAP C$ERHRD 
.WORD 415 
.WORD t2:tn 

.UORD PK1SSR 

.-LOOP IF SELECTED 

TRAP C$CLP1 
;»»»»»» END SUBTEST »»»»»» 
LI 0053: 

TRAP C$CSU8 
:IS ERROR COUNT AT 25 
;BR. IF LESS THAN 25 
;TRV TO DROP THE UNIT 



D 13 



CZTUXAO TU80 FRONT END PRT B 
TEST 4: BASIC VRITE DATA 

6260 
6261 
6262 
6263 
626A 
6265 
6266 
6267 
6268 
6269 
6270 
6271 

6272 037016 
037016 

037016 104402 

6273 037020 005737 003100 

6274 037024 001402 

6275 037026 000137 037266 

6276 037032 004737 041266 

6277 037036 004737 041422 

6278 037042 004737 041360 
6279 

6280 
6281 
6282 
6283 
6284 
6285 

6286 037046 004737 

6287 037052 103407 

6288 037054 004737 

6292 037060 010001 

6293 037062 
037062 104455 
037064 000640 
t.7066 003550 
037070 011656 

6294 037072 

6295 037072 012704 
6296 
6297 
6298 
6299 

6300 
6301 
630? 

6303 037076 004737 010322 

6304 037102 103407 

6305 037104 004737 020064 

6309 037110 010001 

6310 037112 
037112 104456 
037114 000641 
037116 004754 
037120 011656 

6311 
6312 
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TEST 4. SUBTEST 4 



VERIFIES THAT A VRiTE DATA COIWAND SPECIFYING A DATA 
BUFFER STARTING IN NONEXISTANT NEHORY TERMINATES WITH 
THE PROPER ERROR STATUS WITHOUT NOVING TAPE 



lot: 



BGNSUB 



TST 
BEQ 
JMP 
JSR 
JSR 
JSR 



KTFL6 

10S 

90S 

PC.T23REST 

PC.T23RT3 

PC,T2SRT2 



;»»»»»» BEGIN SUBTEST »»»»»» 
T4.4: 

TRAP CtBSUB 

; CHECK FOR KT-11 

;BR. IF NO KT-11 

;SKIP THIS TEST IF KT-n 

:SET COMMAND PACKET 

.•RESTORE PACKET 

: SET UP OTHER COMMAND PACKET 



;ISSUE CONTROLLER "SOFT" INniAlI2E - CARRY BIT CLEAR IF ERROR 



016630 




JSR 


PC.SOFINIT 


;D0 INITIALIZE ON CONTROLLER 


020064 




BCS 


20t 


;BR IF INIT MAS OK 

iiNC AND CHECK FOR MORE IHH 25 ERRORS 




JSR 


PC.FATCHK 






NOV 


R0.R1 


: CONTENTS OF TSSR REGISTER 






ERRDF 


ERRNO.SFIERR.SFIMSG 


; FATAL ERROR TSSR UAS NOT OK 

TRAP CSERDF 
.WORD 416 
.WORD SF lERR 




20$: 






.WORD SFIMS6 


037650 










NOV 


fT23PACKET.R4 


.'SUBROUTINE NEEDS PACKET ADDRESS 



:WRITE CNARACTERISTICS CONNAND (CALL TO URTCHR) 



JSR PC.WRTCNR 

BCS 23i 

JSR PC.FATCNK 

NOV R0.R1 

ERRNRD ERRN0.WRTNS6.SF1NSG 



: ISSUE WRITE CHARACTERISTICS 

:6R. IF COHNAND ISSUED OK 

.•INC AND CHECK FOR NORE THAN 25 ERRORS 

:SAVE CONTENTS OF TSSR 

:WRITE CHARACTERISTIC FAILED 

TRAP CtERHRD 
.WORD 417 
.WORD WRTMSG 
.WORD SFIMSG 



CZ1UXA0 TU60 FRONT END PRT B 
TEST 4: BASIC URITE DATA 



6513 
63U 
6315 
6316 
6317 

6318 037122 005037 

6319 057126 012737 

6320 057134 012701 

6321 037U0 012702 

6322 037U4 004737 

6323 037150 103402 
632« 037152 000157 

6325 037156 010137 

6326 037162 013737 

6327 037170 012737 

6328 037176 012704 

6329 037202 010465 

6330 037206 004737 

6331 037212 016501 

6332 037216 012702 

6333 037222 020102 

6334 037224 001417 

6335 037226 062737 

6336 037234 022737 

6337 037242 001402 

6338 037244 000137 

6339 037250 004737 

6343 037254 
037254 104456 
037256 000642 
037260 040226 
037262 011670 

6344 037264 
037264 104406 

6345 037266 

6346 037266 
037266 

037266 104403 

6347 037270 023727 

6348 037276 002402 

6349 037300 004737 

6350 037304 



E IS 
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yRiTE DATA, ACK. CVC«1 



050216 




23t' 




T?4DI V 


140005 


040000 

w~ WW W 


25S: 






160000 








#160000 R1 


177776 






nov 


#177776 R? 


017260 










037266 














JNP 


90t 

www 


040002 




76S: 






050216 


040004 






T94DI V T?'flJ8«9 


000100 


040006 




NOV 


#64..T23S2 


040000 






mv 


#T23PK3«R4 


177776 






NOV 


R4.TS0B(R5) 


017104 






JSR 


PC.UAITF 


000000 






NOV 


TSSR(R5).R1 


104210 






NOV 


#SC!NXN!SSR!BITS,R2 








CNP 


R1,R2 








BEQ 


BOS 


000001 


050216 




ADD 


#1.T24DLY 


000004 


050216 




CNP 


#4.T240LY 


037126 






BEO 


168S 






JNP 


25$ 


020064 




168S: 


JSR 


PC.f ATCHK 








ERRNRD 


ERRNO.T23TH.PKTSSR 






80$: 


CKLOOP 








90t: 












ENDSUB 




002170 


000031 




CNP 


FATFL6.#25. 


020136 






BIT 


999$ 






JSR 


PC.CKDRQP 






9998: 





.-SET EXTENDED AOOKESS BITS TO 0 

;URITE DATA. ACK* CVC«1 

: START POSSIBLE NXN ADDRESS 

:END POSSIBLE WM ADDRESS 

;CALL NXN FINDER ROUTINE 

;BR IF NXN ADDRESS FOUND 

:JNP OVER CAN'T FIND NXN 

; SET UP MRITE BUFFER ADDRESS 

;HI6H ORDER ADDRESS BITS 

:SET UP BUFFER SIZE 

:R4 * POINTER TO PACKET 

; ISSUE CONNAND 

;UAIT FOR SSR TO SET 

;6ET TSSR CONTENTS 

:SET UP EXPECTED 

;ARE THEY EQUAL 

:BR, IF OK ESP. FUNCTION REJECT 

;LOOK AT NEXT EXTENDED BITS WORTH OF NEN 

.'TOO NUCH NENORV VET 

;BR« IF OVER 18 BIT ADDRESS 

;TRV AGAIN (NEXT BUNCH OF NENORY) 

:INC AND CHECK FOR NORE THAN 25 ERRORS 

;TSSR INCORRECT AFTER WRITE CONNAND 

TRAP CSERHRD 
.WORD 418 
.WORD T23TN 
.WORD PKTSSR 

.LOOP IF SELECTED 

TRAP CSCLPI 

;»»»»»» EM> SUBTEST »»»»»» 
LI 0054: 

TRAP CSESUB 
:IS ERROR COUNT AT 25 
;BR« IF LESS THAN 25 
:TRY TO DROP THE UNIT 



f 15 



CZTUXAO TU80 FRONT END PftT B 
TEST 4: BASIC UftlTC DATA 

6552 
6555 
6554 
6555 
6556 
6557 
6558 
6559 
6560 
6561 
6562 
6565 
6564 
6565 
6566 

6567 057504 
037504 

037304 104402 
6368 037306 005737 003100 

6569 057512 001402 

6570 057514 000157 057610 

6571 057520 004737 041422 
6372 057324 004737 041266 
6375 037330 004737 041360 
6374 

6375 
6376 
6377 
6578 
6379 
6580 

6381 037334 

6382 037340 
6385 057342 

6387 037346 

6388 0375SC 
057550 
037352 
037354 
037556 

6589 057560 

6590 057560 
6591 
6592 
6393 
6394 
6395 
6396 
6397 

6398 057364 

6399 057570 

6400 057372 

6404 037576 

6405 057400 
037400 
037402 
037404 
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SCO 161 



004737 016630 
103407 

004737 020064 
010001 

104455 
000643 
003550 
011656 

012704 037650 



004737 010322 
103407 

004737 020064 
010001 

104456 
000644 
0047S4 



TEST 4. SUBTEST 5 

VERIFIES THAT A URlTE DATA COHNANO SPECIFYING A DATA 
BUFFER STARTING IN EXISTANT NENORV BUT RUNNING INTO 
NONEXISTENT NENORV TERRINATES WITH THE PROPER ERROR 
STATUS. A LARGE ENOUGH RECORD SIZE IS SPECIFIED SUCH 
THAT TAPE IS ACTUALLY MOVED AND UfflTTEN. 



9S: 
10S: 



BGNSUB 



TST 
BEO 
J«1P 
JSR 
JSR 
JSR 



KTFL6 

10S 

85S 

PC.T23RT3 

FC.T23REST 

PC,T23RT2 



;»»»»»» BEGIN SUBTEST »»»»»» 
T4.5: 

TRAP CtBSUB 

.•CHECK FOR KT11 

:BR. IF NO KT11 

.•SKIP THIS TEST 

:RESTORE PACKET 

:SET COMMAND PACKET 

:SET UP OTHER COMMAND PACKET 



; ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



JSR 
BCS 
JSR 
MOV 
ERRDF 



PCSOFINIT 
201 

PC.FATCNK 
R0.R1 

ERRN0.SFIERR.SFIMS6 



20S: 



MOV 



fT23PACKET.R4 



;D0 INITIALIZE ON CONTROLLER 
:BR IF INIT WAS OK 

:INC AND CHECK FOR MORE THAN 25 ERRORS 

; CONTENTS OF TSSR REGISTER 

: FATAL ERROR TSSR UAS NOT OK 

TRAP CSERDF 
.WORD 419 
.WORD SFIERR 
.WORD SFIMSG 

: SUBROUTINE NEEDS PACKET ADDRESS 



WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 



JSR PC«WRTCMI 

BCS 23S 

JSR PC.FATCHK 

NOV R0.R1 

ERRHRD ERRNO.WRTNSG. SFIMSG 



; ISSUE WRITE CHARACTERISTICS 

:BR. IF COMMAND ISSUED OK 

:INC AND CHECK FOR MORE THAN 25 ERRORS 

.SAVE CONTENTS OF TSSR 

:WRITE CHARACTERISTISC FAILED 

TRAP CSERHRD 
.WORD 420 

WftlBSG 



CZTUXAO TU60 FROMT END PRT B 
TEST 4: BASIC WRITE DATA 

037406 011656 

6406 
6407 
6406 
640V 
6410 
6411 
6412 

6415 057A10 

6414 037416 

641 5 037424 
C416 037430 

6417 037434 

6418 037440 

6419 037446 

6420 037452 

6421 037456 

6422 037462 

6423 037466 

6424 037472 

6425 037474 

6426 037476 

6427 037504 

6428 037512 

6429 037514 

6433 037520 
037520 
037522 
037524 
037526 

6434 037530 
037530 

6435 037532 

6436 037536 
6437 
6438 
6439 
6440 
6441 
6442 

6443 037542 
6444 
6445 
6446 

6447 037546 

6448 037554 

6449 037560 

6450 037564 

6451 037570 

6452 037572 

6453 037574 

6457 037600 
037600 
037602 
037604 
037606 

6458 037610 



C IS 
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SCO 162 



.MRD SFINSC 



.•WRITE DATA, ACK,CVl>1 





OCjOOO 


040004 


23S: 


NOV 


fO.T23WB«2 


:HI6N ORDER AMNIESS BITS ETC. 




140005 


040000 


''»: 


NOV 


f 140005. T23PKS 


;WRITE DATA. A€R.CVC«1 


Qiim 


003076 






NOV 


FREEHI.R1 


.•HIGHEST ADDRESS 


162701 


000100 






SUB 


flOO.Rl 
R1.T2SWB 


:SET ADDRESS A LITTLE LOWER 


010137 


040002 






NOV 


;LOAD INTO THE PACKET 


012737 


175000 


040006 




NOV 


#64000. J23SZ 


;SET UP BUFFER SIZE (64K BYTES) 


012704 


040000 






NOV 


fT23PK3.R4 


;R4 « POINTER TO PACKET 


010465 


177776 






NOV 


R4.TSDB(R5) 


: ISSUE CONNAND 


004737 


017104 






JSR 


PCWAITF 


:WAIT FOR SSR TO SET 


016501 


000000 






NOV 


TSSR(R5),R1 


;6ET TSSR CONTENTS 


012702 


104210 






NOV 


fSC!NXH!SSR!BITS.R2 


;SET UP EXPECTED 


020102 








CNP 


R1.R2 


;ARE THEV EQUAL 


001415 








BEO 


80t 


;BR. IF OK ESP. FUNCTION REJECT 


062737 


000001 


040004 




ADD 


f1.T23WB«2 


.•START CUTTING THE HIGH ADDRESS BITS DOWN 


022737 


000004 


040004 




CNP 


f4.T23WB^2 


001341 








BNE 


24S 


:IF NOT AT ZERO. KEEP TRYING 


004737 


020064 






JSR 

ERRHRD 


PC.FATCHK 

ERRN0.T2STNA,PKTS$R 


;INC AND CHECK FOR NORE THAN 25 ERRORS 
;TSSR INCORRECT AFTER WRITE CONNAND 



104456 
000645 
040315 
011670 

104406 
004737 
004737 



SOS: 



041360 
041422 



CKLOOP 

JSR 

JSR 



PC.T23RT2 
PC.T2SRT3 



.•loop if selected 

; Clean up packet 
;restore packet 



TRAP 
.WORD 
.WORD 
.WORD 



CSERHRD 
421 

T23TNA 
PKTSSR 



TRAP CSCLP1 



004737 010424 



ISSUE A CALL TO REWIND ROUTINE WHICH WILL WAIT QUITE SONE TINF FOR SSR 



012737 
012704 
010465 
004737 
10S407 
010001 
004737 

104456 
000646 
040401 
011670 



102010 
037760 
177776 
017220 



020064 



037760 



JSR PC, REWIND 



NOV f102010.T23PK2 

NOV fT23PK2,R4 

NOV R4,TSDB(R5) 

JSR PC.CHKTSSR 

BCS 851 

NOV R0.R1 

JSR PC.FATCHK 

ERRHRD ERRN0.T23RWN.PKTSSR 



85S: 



:CALL THE TAPE REWIND 



;REWIND (POSITION) CONNAND 
.-LOAD R4 WITH PACKET ADDRESS 
.•ISSUE REWIND CONNAND 
.•WAIT FOR SSR TO SET 
;BR. IF TSSR IS OK (GOOD) 
:SAVE TSSR CONTENTS 

;INC AND CHECK FOR NORE THAN 25 ERRORS 
;TSSR IS INCORRECT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 



CSERHRD 
422 

T25RWN 
PKTSSR 



CZTUXAO TU80 FRONT END PRT B 
TEST 4: BASIC WRITE DATA 



MS9 037610 
M60 037610 

6461 037610 
037610 
037610 

6462 037612 

6463 037620 

6464 037622 

6465 037626 

6466 037626 

6467 037632 

6468 037634 

6469 037640 

6470 037640 
037640 
037642 



M 13 
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104403 
023727 
002402 
004737 

004737 
103002 
000137 



104432 
001604 



SKIP: 
130S: 



002170 000031 
020136 
017340 
035566 



999S: 



163S: 



ENPSUB 



CNP 
BLT 
JSR 

JSR 
BCC 
JMP 

EXIT 



FATFLG.«25. 
999S 

PC.CKOROP 

PC.TSTLOOP 

16SS 

T23LOOP 

TST 



;»»»»»» ENO SUBTEST »»»»»» 
L10055: 

TRAP CSESU6 
:IS ERROR COUNT AT 25 
;BR. IF LESS TNAN 25 
;TRV TO DROP TNE UNIT 

;D0 WE NEED TO ITERATE TEST 
;BR. IF NO LOOP REQUIRED 
.•EXECUTE AGAIN 

.-ALL DONE THIS TEST 

TRAP CtEXlT 
.WORD Li 0050- . 



1 15 



CZTUXAO TU80 FRONT END PRT B 
TEST .: BASK WRITE DATA 

6472 
M73 
6474 

6476 037644 

6478 0S76S0 

6479 0S76S0 100004 

6480 0376S2 037660 

6481 037654 000000 

6482 037656 000010 

6483 037660 

6484 037660 037670 

6485 037662 000000 

6486 037664 000012 

6487 037666 000000 

6488 037670 
6489 

6490 
6491 

6493 037752 

6495 037760 

6496 037760 100006 

6497 037762 040012 

6498 037764 000000 

6499 037766 000006 
6500 

6502 037770 

6504 040000 

6505 040000 100005 

6506 040002 000000 

6507 040004 000000 

6508 040006 000000 
6509 

6510 

6511 040010 000000 

6512 

6513 

6514 040012 

6515 040012 010 

6516 040013 200 

6517 040014 000000 

6518 040016 000000 
6519 

6520 
6521 
6522 
6523 

6524 040020 100005 

6525 040022 100405 

6526 040024 102005 

6527 040026 177777 
6528 

6529 
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;LOCAL STORAGE FOR TNiS TEST 



SCO 164 



.BLKB 
T23PACKET: 

.UORD 
.yORD 
.UORD 
.yORO 

T2SDATA: 

.UORD 
.UORD 
.UORD 
.UORD 
T23BFR: .BLKU 



10-<.-TUV2A87> 

100004 
T23DATA 
0 
8. 

T23BFR 
0 

10. 
0 

25. 



;URITE SUBSYSTEM HEMORV COWMND PACKET 



T2SPK2: 



T2SPK3: 
T23UB: 



.BLKB 


10-<.-TUV2Al7> 


.UORD 


100006 


.UORD 


T23BF2 


.UORD 


0 


.UORD 


6. 


.BLKB 


10-<.-TUV2A|7> 


.UORD 


100005 


.UORD 


0 


.UORD 


0 


.UORD 


0 


.EVEN 




.UORD 


0 



T23BF2: 

T23BS0: .BYTE 10 

T23BS1: .BYTE 200 

T23S2: .UORD 0 

T23S3: .UORD 0 



.EVEN 

;TAPE MOTION PACKET COMMAND VALUES 



T23UD: .UORD 
T23UDR: .UORD 
T23C0N: .UORD 
.UORD 



100005 
100405 
102005 
177777 



.•COMMAND PACKET FOR TEST 

;URITE CHARACTERISTICS COMMAND. UITH ACK 

:ADDRESS OF CHARACTERISTICS BLOCK 

.STARTING VALUE OF BLOCK SIZE 
.CHARACTERISTICS DATA BLOCK 
{ADDRESS OF MESSAGE BUFFER 

: LENGTH OF MESSAGE BUFFER 

.'MESSAGE BUFFER 



.-URITE SUB SYS MEM COMMAND. AND ACK 
.-ADDRESS OF SELECT BLOCK DATA 

.SIZE OF DATA PACKET 



:URITE COMMAND. AND ACK 
.'ADDRESS OF URITE BUFFER 

.'SIZE OF BUFFER (EXTENT) 



{LARGEST TAPE RECORD IN BYTES 



;BSELO AREA 
;B$EL1 AREA 
:SEL 2 AREA 
.'DATA AREA 



;URITE DATA (NEXT) 
.-URITE DATA RE^RY 
.-URITE CONTINOUS 
.-END OF DATA 



J 13 



C2TUXA0 TU80 FRONT END PKT B 
TEST 4: BASIC WRITE DATA 

6531 
6532 
6533 
6S34 
6535 

6536 040030 

6537 040063 

6538 040150 

6539 040226 

6540 040315 

6541 040401 

6542 040450 

6543 040523 

6544 040571 

6545 040644 

6546 040733 

6547 041035 

6548 041110 

6549 041162 

6550 041251 
6551 
6552 
6553 
6554 
6555 
6556 
6557 
6558 

6559 041266 

6560 041266 

6561 041272 

6562 041276 

6563 041302 

6564 041306 

6565 041310 

6566 041314 

6567 041320 

6568 041322 

6569 041326 

6570 041330 

6571 041334 

6572 041340 
65/3 041346 

6574 041350 

6575 041354 

6576 041356 
6577 
6578 

6579 041360 

6580 041360 

6581 041364 012701 037760 

6582 041370 012721 100006 

6583 041374 012721 040012 

6584 041400 005021 

6585 041402 012721 000006 

6586 041406 CI 2701 040012 

6587 041412 005021 



fUCRO N1200 29-nAR-83 13:32 PAGE 98 



: LOCAL TEXT MESSAGES FOR TEST 



SEO 165 



127 


122 


111 


T23SSR: 


.ASCIZ 


105 


117 


124 


T23ET; 


.ASCIZ 


127 


122 


111 


T23EOT: 


.ASCIZ 


124 


123 


123 


T23TH: 


.ASCIZ 


124 


123 


123 


T23TIU: 


.ASCIZ 


122 


145 


167 


T23mM: 


.ASCIZ 


122 


101 


115 


T23RNC: 


.ASCIZ 


124 


123 


123 


T23AM3: 


.ASCIZ 


104 


162 


151 


T230FL: 


.ASCIZ 


124 


123 


123 


T23UDD: 


.ASCIZ 


124 


123 


123 


T23yDC: 


.ASCIZ 


103 


126 


103 


T23VCK: 


.ASCIZ 


124 


123 


102 


T238A: 


.ASCIZ 


127 


122 


111 
163 


T23USS: 


.ASCIZ 


102 


141 


TST23ID: 


.EVEN 



'WRITE CoMsnd Not Acctpttd' 

'EOT Not Found In 12000 4k Writts. (Utt Shorttr T»pt)' 

'WRITE DATA OVER EOT GAVE NO TAPE STATUS ALERT* 

*TSSR Not Corrtct Afttr WRITE CoMiand Rtjtct Dut To NXN* 

'TSSR Not Corrtct Afttr WRITE To Non-Eiisttnt MtMOry' 

'Rtwlnd (POSITION) CoMwnd Not Acctpttd' 

'RAN Error. Corrtct Data Pttttrn Not In R«i* 

*TSSR InU. FaUtd Afttr WRITE COMtnd' 

'Drivt 7 Stltct FtUtd To Stt "Of I" In TSSR' 

'TSSR Not Corrtct Afttr WRITE DATA CosMtnd. SWB BU Stt* 

'TSSR Not Corrtct Afttr WRITE DATA CoMwnd. Chtck For Ttpt OffUnt' 

'CVC Stt. Dl4ri"t Rtttt VCK In Utttagt Bufftr* 

*TSBA Not Corrtct Afttr WRITE DATA CoMtntf* 

'WRITE SUBSYSTEN NENORY CoMMnd Not Acctpttd (RAM Rttd)' 

.ASCIZ 'Basic Wrftt' 



;♦ 



.•ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
.•WRITE SUBSYSTEM MEMORY COMMAND 



T23REST: 







SAVREG 




.SAVE THE REGISTERS 


012701 


037650 


MOV 


fT23PACKET.R1 


.•START OF THE PACKET 


012721 


100004 


NOV 


#100004. (R1)« 


;WRITE SUBSYSTEM MEM. WITH ACK 


012721 


037660 


MOV 


fT230ATA.(R1)« 


;ADDRESS OF CHARAISTICS DATA BLOCK 


005021 




CLR 


(R1)« 


.•EXTENDED ADDRESS 


012721 


000012 


MOV 


«10..(R1)« 


.SIZE OF DATA BLOCK IN BYTES 


012721 


037670 


MOV 


#T23BFR.(R1)« 


.•ADDRESS OF MESSAGE BUFFER 


005021 




CLR 


(R1)« 


012721 


000024 


NOV 


f20..(R1)« 


: LENGTH OF MESSAGE BUFFER 


005021 




CLR 


(RD* 


012711 


000000 


NOV 


fO.(RI) 


.'SELECT DRIVE ZERO 


012702 


000030 


NOV 


#24.. R2 

f177777.T23BFR(R2) 


.•NUMBER OF LOCATIONS TO BE CLEARED 


012762 


177777 037670 64$: 


NOV 


;ALL ONES TO MESSAGE BUFFER 


005742 




TST 


-(R2) 


:BUNP DOWN TO NEXT LOCATION 


020227 


000000 


CNP 


R2.f0 


;R2 AT ZERO YET 


001371 




BNE 


64$ 


.•KEEP GOING UNTIL DONE 


000207 




RTS 


PC 


.•RETURN 



T23RT2: 



SAVREG 

NOV 

NOV 

NOV 

CLR 

NOV 

NOV 

JM 



fT23PK2.Rl 

#100006. (R1)« 

#T23BF2.(R1)« 

(RD* 

#6..(R1)» 

#T2S8F2.R1 

(>1)» 



;SAVE THE REGISTERS 

: START OF THE PACKET 

.WRITE SUBSYSTEM NEM. WITH ACK 

.•ADDRESS OF DATA BLOCK 

: EXTENDED ADDRESS 

:SIZE OF DATA BLOCK IN BYTES 

: POINT TO DATA SEL AREA 



CZTUXAO TUftO FRONT END PRT B 
TEST 4: BASIC UHITE DATA 



K IB 
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6588 04UU 

6589 041416 

6590 041420 

6591 041422 

6592 041422 

6593 041t26 

6594 041432 

6595 041436 

6596 041440 

6597 041442 

6598 041444 

6599 041446 
041446 
041446 



005021 
005011 
000207 



012701 040000 
012721 100005 



T23RT3: 



005021 
005021 
005011 
000207 



104401 



CLR 
CLR 
RTS 

SAVRE6 

NOV 

NOV 

CLR 

CLR 

CLR 

RTS 

ENOTST 



(R1)« 

(R1) 

PC 



fT23PK3.Rt 

f 1 00005, (RD* 

(RD* 

(RD* 

(R1) 

PC 



.•RETURN 

:SAVE THE REGISTERS 
; START OF THE PACKET 
.•WRITE TAPE. WITH ACK 
.•ADDRESS OF DATA BLOCK 
.•EXTENDED ADDRESS 
:SIZE OF DATA BLOCK 
.'RETURN 

LIOOSO: 

TRAP CSETST 



r 
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TEST S: BASIC READ DATA (FORWARD AND REVERSE) 
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PAGE 100 



SEO 167 



6602 

6603 

6604 

6605 

6606 

6607 

6608 

6609 

6610 

6611 

6612 

6613 

6614 

6615 

6616 

6617 

6618 

6619 

6620 

6621 

6622 

6623 
6624 
6625 
6626 
6627 
6632 
6633 
6634 
6635 
6636 
6637 



041450 
041450 
041450 
041454 
041460 
041466 
041472 
041476 
041502 
041506 

041514 



005037 002170 

005037 003100 

012737 005755 002146 

005037 003102 

004737 020230 

012700 052462 

004737 017372 

012737 000001 002164 



.SBTTL TEST 5: BASIC READ DATA (FORWARD AND REVERSE) 

THIS TEST VERIFIES THAT THE READ FORWARD AND READ REVERSE 
COMMANDS OPERATE PnOPERLY. VARIOUS COMBINATIONS OF ODD AND EVEN 
DATA BUFFER BOUNDARIES. RECORD SIZES (UP TO 64K BYTES IF NEPIORY 
SPACE IS AVAILIABLE). AND BYTE-SWAP CONTROL ARE USED. THIS TEST 
OF COURSE. FURTHER VERIFIES THE WRITE DATA COfVUND BY ACTUALLY 
READING AND VERIFYING WRITTEN DATA. ALSO TESTED ARE PROPER 
TERMINATIONS ON EXCEPTIONAL OR ERROR CONDITIONS: RECORD LENGTH 
LONG. RECORD LENGTH SHORT. READ REVERSE AT BOT. ILLEGAL DATA 
BUFFER ADDRESSES. ILLEGAL CODES IN THE NODE FIELD OF THE BASIC 
READ COMMAND. AND DATA BUFFERS IN NON-EXISTANT MEMORY. THE TEST 



THE TEST CONSISTS OF THE FOLLOWING 12 SUBTESTS 



BGNTST 

CLR 
CLR 
MOV 
CLR 
JSR 
NOV 
JSR 
NOV 



FATFLG 
KTFLG 

fEPRTUEPRTSW 

KTENABLE 

PC.KTOFF 

fTST24ID.R0 

PC.TSTSETUP 

fl.LOOPCNT 



T5: : 

.•CLEAR FATAL Ei lOR FLAG 
:HOLD OFF KT11 

:SET UP PRIMARY ERROR MESSAGE 
.•TURN OFF KT11 
;TURN KT11 OFF 

.•ASCII MESSAGE TO IDENTIFY TEST 
;D0 INITIAL TEST SETUP 
.-PERFORN 1 ITERATIONS 



T24L00P: 



CZTUXAO TU80 FRONT END PRT B HACRO H.200 29HUR-83 13:32 
TEST S: BASIC READ DATA (FORWARD AND REVERSE) 
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SEO 168 



6639 
6640 
6641 
6642 
6643 
6644 
6645 
6646 
6*47 
6648 
6649 
66S0 
66S1 
6652 
6653 
6654 
6655 

6656 041514 
041514 
041514 

6657 041516 

6658 041522 

6659 041526 

6660 041532 
041532 

6661 041534 

6662 041540 

6663 041542 

6664 041546 
6665 

6666 
6667 
6668 
6669 
6670 

6671 041546 

6672 041552 

6673 041554 

6677 041560 

6678 041562 
041562 
041564 
041566 
041570 

6679 041572 

6680 041572 
6681 

6682 
6683 
6684 
6685 
6686 
6687 

6688 041576 

6689 041602 

6690 041604 
6694 041610 



104402 
004737 
004737 
004737 

104421 
032700 
001002 
000137 



103407 
004737 
010001 

104455 
000765 
003550 
011656 



103407 
004737 
010001 



052664 
052530 
052622 



000100 
042266 



;TEST 5. SUBTEST 1 

ivERIFIES TNAT READ fORUARD COfMANDS WITH SUB*0 
:OPERATES PROPERLY. THE TAPE IS FIRST REWOUND AND THEN 
.WRITTEN WITH A SERIES OF TEST RECORDS VARING IN 
.•LENGTH AND DATA CONTENT. THE TAPE IS THEN REWOUND 
.•AGAIN AND THE RECORD READ SEQUENTIALLY AND RESULTS 
: (STATUS. DATA. ETC.) VERIFIED. THE BYTE COUNT ON 
;EACH READ FORWARD COHNANO IS SET TO THE LENGTH OF THE 
.•EXPECTED RECORD. SO NO EXCEPTIONAL CONDITIONS SHOULD 
.•OCCUR. 



• 



B6NSUB 



JSR PC.T24RT3 

JSR PC.T24REST 

JSR PC.T24RT2 

RFLAGS RO 



98: 



BIT 
BNE 
JNP 



fBIT6.R0 

9S 

192S 



;»»»»»» BEGtM SUBTEST »»»»»» 
Ti.1: 

TRAP CS8SUB 
.•SET UP OTHER COMMAND PACKET 
.'SET COMMAND PACKET 
.SET UP OTHER COMMAND PACKET 
;READ SUPERVISOR FLAGS 

TRAP CSRFLA 
.•CHECK FOR THE ILS BIT SET 
:U SET SKIP THE PATCH 
; PATCH IT OUT 



.•ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



016630 




JSR 


PC.SOFINIT 


.•DO INITIALIZE ON CONTROLLER 


020064 




8CS 


20$ 


;BR IF INIT WAS OK 




JSR 


PC.FATCHK 


;INC AND CHECK FOR *^E THAN 25 ERRORS 






NOV 


R0.R1 


.•CONTENTS OF TSSR k.jISTER 






ERRDF 


ERRNO.SFIERR.SFINSG 


.•FATAL ERROR TSSR WAS NOT OK 










TRAP CSEROF 










.WORD 501 










.WORD SFIERR 










.WORD SFINSG 


050040 


20S: 










MOV 


fT24PACKET.R4 


.•SUBROUTINE NEEDS PACKET ADDRESS 




• 

•WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

• 


010322 




JSR 


PC .WRTCHR 


; ISSUE WRITE CHARACTERISTICS 






BCS 


241 


;BR. IF COMMAND ISSUED OK 


020064 




JSR 


PC.FATCHK 


:1NC AND CHECK FOR MORE THAN 25 ERRORS 






MOV 


R0.R1 


•SAVE COMTCMTS OF TSSR 
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TEST S: BASIC READ DATA (FORWARD AND REVERSE) 



N 13 
PACE 101-1 



SEQ 169 



6695 041612 
041612 
041614 
041616 
041620 

6696 041622 
041622 

6697 
6698 
6699 
6700 
6701 
6702 
6703 

6704 041624 

6705 041630 

6706 041632 

6707 041634 

6711 041640 
041640 
041642 
041644 
041646 

6712 041 6S0 
041 6S0 

6713 
6714 
6715 
6716 
6717 
6718 
6719 

6720 041652 

6721 041656 

6722 041660 

6723 041664 

6724 041666 

6725 041670 

6729 041674 
041674 
041676 
041700 
041702 

6730 041704 
041704 

6731 041706 

6732 041712 
6733 

6734 
6735 
6736 
6737 
6738 
6739 

6740 041720 

6741 041726 

6742 041732 



104456 
000766 
004754 
011656 

104406 



004737 
103407 
010001 
004737 

104456 
000767 
051326 
011670 

104406 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
000770 
051043 
016330 

104406 
012703 
013737 



012737 
012704 



ERRHRD ERRN0.URTHS6.SFINS6 



24S: CKLOOP 



:URITE CHARACTERISTISC FAILED 

TRAP 
.yORD 
.WORD 
.WORD 



.•LOOP IF SELECTED 



TRAP 



CSERHRD 
502 

WRTNS6 
SFINS6 

C»CLP1 



.•ISSUE REWIND CONRAND TO SELECTED TAPE DRIVE 



010424 
020064 



JSR 
BCS 

nov 

JSR 

ERRHRD 



30S: CKLOOP 



PC. REWIND 
30S 
R0.R1 
PC.FATCHK 

ERRN0.T24RWN.PICTSSR 



.-CALL TAPE REWIND COMMAND 
;BR. IF NO PROBLEM 
.-SAVE TSSR 

;INC AND CHECK FOR MORE THAN 25 ERRORS 
.'REWIND NOT ACCEPTED 



;L0OP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



CSERHRD 
S03 

T24RUN 
PKTSSR 



TRAP CSCLP1 



READ NESSA6E BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



050066 
000002 

020064 



NOV 
HOV 
BIS 
CNP 
BEQ 
JSR 



T24BFR«6.R1 

R1,R2 

ffBIT1.R2 

R1.R2 

40$ 

PC.FATCHK 



ERRHRD ERRN0.T24B0T.EXPREC 



40S: 



000400 
003072 



050172 



CKLOOP 

mv 
mv 



f256..R3 
FREE.T24RB 



;PICK UP XSTO 

.-SET UP EXPECTED 

.'SET BOT BIT IN EXPECTED 

.DOES EXP s REC*D 

;BR. IF EQUAL (OK) 

:INC AND CHECK FOR NORE THAN 25 ERRORS 
;TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 

:LOOP IF SELECTED 

TRAP 

.•RECORD SIZE 

.•STARTING WRITE BUFFER ADDRESS 



CSERHRD 
504 

T24B0T 
EXPREC 

CSCLPI 



WRITE DATA.CVC^I.ACR COfWAND 



140005 
050170 



050170 



65$: 



NOV #1 40005. T24PK3 
NOV «T24PR3.R4 



;WRITE DATA.CVCs1.ACK CONNAND 
:SET UP R4 WITH PACKET ADDRESS 
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TEST S: BASIC READ DATA (FORWARD AND REVERSE) 
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SEQ 170 



6743 041732 

6744 041734 

6745 041740 

6746 041744 

6747 041750 

6748 041754 

6749 041760 

6750 041764 

6751 041766 

6752 041770 
6756 

6757 

6758 041774 
041774 
041776 
042000 
042002 

6759 042004 
042004 

6760 042006 

6761 042010 

6762 042014 

6763 042016 
042016 

6764 042020 
6765 

6766 
6767 
6768 
6769 
6770 
6771 

6772 042020 

6773 042024 

6774 042030 

6775 042032 

6776 042034 

6780 042040 
042040 
042042 
042044 
042046 

6781 042050 
042050 

6782 
6783 
6784 
6785 
6786 
6787 
6788 

6789 042052 

6790 042056 
6/91 042060 

6792 042064 

6793 042066 

6794 042079 



010300 
004737 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
004737 



104457 
000771 
005011 
011670 

104406 
005723 
022703 
001346 

104406 



012703 
004737 
103407 
010001 
004737 

104456 
000772 
051326 
011670 

104406 



013701 
010102 
052702 
020102 
001407 
077323 



020356 
050176 
177776 
017104 
000000 
000200 



020064 



NOV 
JSR 
NOV 
NOV 
JSR 
NOV 
NOV 
CHP 
BEQ 
JSR 



R3,R0 

PCFILLNEH 

R3.T24SZ 

R'-.TSDB(R5} 

PCWAITF 

TSSR(R5).R1 

fSSR.R2 

R1.R2 

75$ 

PCFATCHK 



ERRSOFT ERRNO.URTERR.PKTSSR 



;SET PATTERN IN CORRECT REGISTER 
.'FILL NENORT UITN RECORD SIZE 
;SET UP RECORD SHE IN PACKET 
.•ISSUE CONNAND 
:UAIT FOR SSR TO SET 
:6ET TSSR CONTENTS 
:SET UP EXPECTED 
:ARE THEY EQUAL 
*BR IF OK 

:INC AND CHECK FOR MORE THAN 25 ERRORS 
;SOFT ERROR. REALLY CHECKING THE 
;READ CONNAND 

:TSSR INCORRECT AFTER URITE DATA 



000414 



7SS: 

80$: 
120$: 



CKLOOP 

TST 
CNP 
BNE 

CKLOOP 



;LOOP IF SELECTED 



TRAP 
.WORD 
.UURD 
.WORD 



CSERSOFT 
505 

WPTERR 
PKTSSR 



(R3)« 
#268.. R3 
65$ 



;BUnP 



RECORD SIZE 

.-END OF RECORD YET 

;BR. IF NORE RECORDS TO WRITE 

.-LOOP IF SELECTED 

TRAP 



TRAP C$CLP1 



C$CLP1 



:ISSUE REWIND CONNAND TO SELECTED TAPE DRIVE 



000012 
010424 



020064 



NOV 

125$: JSR 
BCS 
HOV 

JSR 

ERRHRD 



130$: CKLOOP 



f10..R3 

PC.REWIND 

130$ 

R0.R1 

PC.FATCHK 

ERRN0.T24RWN.PKTSSR 



:SPECIAL NULTIPLE REWIND 
.-ISSUE REWIND COMMAND 
:BR. IF NO PROBLEM 
.SAVE TSSR 

;INC AND CHECK FOR MORE THAN 25 ERRORS 
.•REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 

{LOOP IF SELECTED 

TRAP 



CSERHRD 
506 

T24RWN 
PKTSSR 



C$ClP1 



.READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

• ####### ############### A 



050066 
000002 



NOV 
MOV 
BIS 
CNP 
BEQ 
SOB 



T24BFR«6,R1 

R1.R2 

fBIT1,R2 

R1.R2 

140$ 



.•PICK UP XSTO 

:SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 

;DOES EXP > REC'D 

;BR. IF EQUAL (OK) 

■aa AMOTilfR RgWIMP ft»(Mtg RFPQBT1M& £MQR 



CZTUXAO TU80 FRONT END PRT B HACRO m200 29-IUR-B5 13:32 
TEST 5: BASIC READ DATA (FORyARD AND REVERSE) 



C U 
PAGE 101-3 



679S 042072 

6799 042076 
042076 
042100 
042102 
042104 

6800 042106 
042106 

6801 042110 

6802 042114 
6803 

6804 
6805 
6806 
6807 
6808 

6809 042122 

6810 042130 

6811 042134 

6812 042140 

6813 042144 

6814 042150 

6815 042154 

6816 042160 

6817 042162 

6818 042164 

6822 042170 
042170 
042172 
042174 
042176 

6823 042200 
042200 

6824 042202 

6825 042206 

6826 042210 

6827 042214 

6828 042216 

6829 042220 

6830 042222 

6831 042224 

6832 042226 
6836 042232 

042232 
042234 
042236 
042240 
6857 042242 
042242 

6838 042244 

6839 042246 

6840 042250 

6841 042252 

6842 042254 
6845 042256 

6844 042262 

6845 0422«>4 



004737 020064 

104456 
000773 
051043 
016330 



104406 
012703 
013737 



012737 
012704 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000774 
005104 
011670 

104406 
013702 
010304 
162704 
060204 
021403 
001410 
011401 
010302 
004737 

104456 

000775 
051110 
016330 

104406 
005724 
1cO204 
020403 
001360 
005723 
022703 
001322 



000400 

003072 050172 



JSR 

ERRHRD 



140S: CKLOOP 

NOV 
NOV 



PC.FATCHK 

ERRNO,124BOT.EIPREC 



f256.,R3 
FREE.T24Re 



:INC AND CHECK FOR NOPE THAN 25 ERRORS 
;TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 

;LOOP IF SELECTED 

TRAP 

.RECORD SIZE 

: STARTING READ BUFFER ADDRESS 



CtERHRD 
507 
T24B0T 
EXPREC 

CtCLPI 



.READ DATA.CVC>1.ACK COHNAND 



140001 050170 

0-ni70 

0^w176 

177776 

017104 

000000 

000200 



020064 



165S: 



NOV #1 40001. T24PK3 

NOV ffT24PK3.R4 

NOV R3.T24SZ 

NOV R4.TS0B(R5) 

JSR PC.WAITF 

NOV rSSR(RS).Rl 

NOV fSSR.R2 

CNP R1 .R2 

BEO 170$ 

JSR PC.FATCHK 

ERRHRD ERRNO.RDERR.PKTSSR 



;READ DATA.CVC«1.ACK CONNAND 
:SET UP R4 WITH PACKET ADDRESS 
;SET UP RECORD SIZE IN PACKET 
; ISSUE CONNAND 
;WAIT FOR SSR TO SET 
;6ET TSSR CONTENTS 
UP EXPECTED 
THEY EQUAL 
IF OK 

AND CHECK FOR NORE THAN 25 ERRORS 
INCORRECT AFTER READ DATA 
TRAP 



;SET 
;ARE 
:BR, 
;INC 
:t:>SR 



003072 
000400 



170S: 



173S: 



.WORD 
.WORD 
.WORD 



CSERHRD 
508 
RDERR 
PKTSSR 



020064 



CKLOOP 




;LOOP IF SELECTED 




FREE.R2 


TRAP CSCLP1 


NOV 


;GE1 BUFFER ADDRESS 


NOV 


R3.R4 


:CURRENT RECORD SIZE 


SUB 


#256. .R4 


:FIRST LOCATION IN BUFFER 


ADD 


R2.R4 


;GET LOCATION IN BUFFER (ADDRESS) 


CNP 


(R4).R3 


; CHECK DATA READ (P3sDATA ALSO) 


BEQ 


180S 


:BR. IF ALL IS WELL 


NOV 


(R4).R1 


;RECD DATA 


NOV 


R3.R2 


; EXPECTED DATA 


JSR 


PC.FATCHK 


:INC AND CHECK FOR NORE THAN 25 ERRORS 


ERRHRD 


ERRK0.T24DTA.EXPREC 


:DATa read not * WRITTEN 



000412 



1808: CKLOOP 

TST 
SUB 
CNP 



190S: 



.•LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WOP'J 



CSERHRD 
509 
T240TA 
EXPREC 



TST 
CNP 
BNE 

CKLOOP 



(R4)« 

R2.R4 

R4.R3 

173S 

(R3)> 

«266..R3 

1658 



;BUNP TO NEXT LOCATION 
;6ET BACK TO CORRECT SIZE 
;END OF RECORD VET 
;BR. IF NOT AT END OF RECORD 
;BUNP RECORD SIZE 
;END OF RECORD TET 
;BR. IF NORE RECORDS TO WRITE 
aOQP If SELECTift 



TRAP CSCLP1 



0 u 
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0422M 

6846 042266 
042266 
042266 

6847 042270 

6848 042276 

6849 042300 

6850 042304 



104406 



104403 
023727 
002402 
004737 



192t: ENOSUB 



J02170 
020136 



000031 



999$: 



CHP 
BLT 
JSR 



FATrL6.#25. 
999$ 

PC.CKOROP 



L 



TRAP CSCLPI 
;»»»»»» END SUBTEST »»»»»» 
L10C57: 

TRAP C$ESUB 

;IS ERROR COUNT AT 2S 
:BR. IF LESS THAN 25 
;TRy TO DROP THE UNIT 
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SEO 173 



68S2 
68S3 
6854 
68SS 
6856 
6857 
6858 
6859 
6860 
6861 
6862 
6863 

6864 042304 
042304 
042304 

6865 042306 

6866 042312 

6867 042316 
6868 

6869 
6870 
6871 
6872 
6873 
6874 

6875 042322 

6876 042326 

6877 042330 

6881 042334 

6882 042336 
042336 
042340 
042342 
042344 

6883 042346 

6884 042346 
6885 

6886 
6887 
6888 
6889 
6890 
6891 

6892 042352 

6893 042356 

6894 042360 

6898 042364 

6899 042366 
042366 
042370 
042372 
042374 

6900 042376 
042376 

6901 
6902 
6905 



TEST 5. SUBTEST 2 

VERIFIES THAT READ i)ATA CONNANDS WITH CVC«1 AND THE 
SUAP BYTES (SUB) BIT SET OPERATES PROPERLY. THE TEST 
SEQUENCE IS IDENTICAL TO THAT USED IN SUBTEST 2. 
THE RESULTS. EXCEPT FOR RAN CONTENTS. SHOULD BE TPE SAME. 



104402 

004737 052664 

004737 052530 

004737 052622 



B6NSUB 



JSR 
JSS 
JSR 



PC.T24RT3 

PC.T24REST 

PC.T24RT2 



:»»»»»» BEGIN SUBTEST »»»»»» 
T5.2: 

TRAP CS6SUB 
;SET UP OTHER CONNAND PACKET 
.SET COfWAND PACKET 
; SET UP OTHER COIVMND PACKET 



ISSUE CONTROLLER "SOFT" INITIALIZE « CARRY BIT CLEAR IF ERROR 



004737 016630 
103407 

004737 020064 
010001 

104455 
000776 
003550 
011656 

012704 050040 



JSR 
BCS 
JSR 
NOV 
ERRDF 



PC.SOFINIT 
20t 

PC.FATCHK 
R0.R1 

ERRN0.SFIERR.SFINS6 



20$: 



NOV 



fT24PACKET.R4 



:D0 INITIALIZE ON CONTROLLER 
;Bk IF INIT WAS OK 

;INC AND CHECK FOR NORE THAN 25 ERRORS 

: CONTENTS OF TSSR REGISTER 

; FATAL ERROR TSSR WAS NOT OK 

TRAP C$ERDF 
.WORD 510 
.WORD SFIERR 
.WORD SFJNSG 

.•SUBROUTINE NEEDS PACKET ADDRESS 



WRITE CNARACTERISTICS CONNAND (CALL TO WRTCHR) 



004737 010322 
103407 

004737 020064 
010001 

104456 
000777 
004754 
0116S6 

104406 



24$: 



JSR 
BCS 
JSR 
NOV 
ERRHRD 



CKLOOP 



PC.WRTCNR 
24$ 

PC.FATCNK 
R0.R1 

ERRNO.WRTNSG.SFINSG 



.'ISSUE WRITE CHARACTERISTICS 
:BR. IF CONNAND ISSUED OK 
:INC AND CHECK FOR NORE THAN 25 
:SAVE CONTENTS OF TSSR 
.•WRITE CNARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

.•LOOP IF SELECTED 

TRAP 



ERRORS 



C$ERHRD 
511 

WRTNSG 
SFINS6 

C$CLP1 
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SEO 174 



6904 
690S 
6906 
6907 

690S 042400 

6909 042404 

6910 042406 

6911 042410 

6915 042414 
042414 
042416 
042420 
042422 

6916 042424 
042424 

6917 
6918 
6919 
6920 
6921 
6922 
6923 

6924 042426 

6925 042432 

6926 042434 
6937 042440 

6928 042442 

6929 042444 

6933 042450 
042450 
042452 
0424S4 
042456 

6934 042460 
042460 

6935 042462 

6936 042466 
6937 

6938 
6939 
6940 
6941 
6942 
6943 

6944 042474 

6945 042502 

6946 042S06 
«947 042506 

6948 042510 

6949 042514 

6950 042520 

6951 042524 

6952 042530 

6953 042534 

6954 042540 

6955 042542 

6956 042544 



ISSUE REUIND COfWAND TO SELECTED TAK DRIVC 



004737 010424 

103407 

010001 

004737 020064 

104456 
001000 
051326 
011670 

104406 



30ft: 



JSR 
BCS 
NOV 
JSR 

ERRHRD 



CKLOOP 



PC/<tyiND 
30« 
R0.R1 
PC.FATCHK 

ERRN0.T24RUN.PKTSSR 



;CALL TAPE RCyiND COMNAND 
:BR. IF NO PIIOBLEN 
.-SAVE TSSR 

:INC AND CHECK FOR NORE THAN 25 EPRORS 
.-REWIND NOT ACCEPTED 



.-LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



CftCRHRD 

512 

T24RWN 
PKTSSR 



TRAP CftCLPI 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO <XSTO) 



013701 050066 
010102 

052702 000002 

020102 

001406 

004737 020064 

104456 
001001 
051 043 
016330 

104406 

012703 000400 
013737 003072 050172 



40ft: 



NOV 
NOV 
BIS 
CNP 
BEQ 
JSR 

ERRHRD 



CKLOOP 



T24BFR»6.R1 

R1,R2 

fBIT1.R2 

R1.R2 

40ft 

PCFATCMK 

ERRN0,T24B0T.EXPREC 



NOV 
NOV 



#256.. R3 
FREE,T24RB 



;PICK UP XSTO 

:SET UP EXPECTED 

.SET BOT BIT IN EXPECTED 

;DOES EXP * REC'D 

;BK. IF EQUAL (OK) 

:INC AND CHECK FOR NORE THAN 25 

;TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 

.LOOP IF SELECTED 

TRAP 

.•RECORD SIZE 

.STARTING WRITE BUFFER ADDRESS 



ERRORS 

CftERHRD 
513 
T24B0T 
EXPREC 

CftCLPI 



WRITE BATA,ACK.SyB.CVC«1 CONMND 



012737 150005 050170 
012704 0S0170 



010300 
004757 
010557 
010465 
004757 
016501 
012702 
020102 
001406 
004757 



6Sft: 



020556 
050176 
177776 
017104 
000000 
000200 



020064 



NOV #1 50005. T24PK3 

NOV fT24PK3.R4 

NOV R3.R0 

JSR PC.FILLNEN 

NOV R5.T24SZ 

NOV R4.TSDB(R5) 

JSR PC.WAITF 

NOV TSSR(R5).R1 

NOV fSSR.R2 

CNP R1.R2 

BEQ 75i 

JSR pcTfatchk 



.•WRITE OATA.ACK.SWB.CVCsl CONNAND 
:SET UP R4 WITH PACKET ADDRESS 

SET PATTERN IN CORRECT REGISTER 

FILL NENORV WITH RECORD SIZE 

SET UP RECORD SIZE IN PACKET 

ISSUE CONNAND 

WAIT FOR SSR TO SET 

GET TSSR CONTENTS 

SET UP EXPECTED 

ARE THEY EQUAL 

tut AMD CHtCK rna nore tham 25 gRRoas 
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SEQ 



6960 
6961 

6962 042550 
042S50 
042552 
042554 
042556 

6963 042560 
042560 

6964 042562 

6965 042564 

6966 042570 
6%7 042572 

042572 
6968 042574 
6969 
6970 
6971 
6972 
6973 
6974 
6975 

6976 042574 

6977 042600 

6978 042602 

6979 042604 

6983 042610 
042610 
042612 
0426U 
042616 

6984 042620 
042620 

6985 
6986 
6987 
6988 
6989 
6990 
6991 

6992 042622 

6993 042626 

6994 0426S0 

6995 0426S4 

6996 042636 
6V97 042640 

7001 042644 
042644 
042646 
042650 
042652 

7002 0426S4 
042654 

7003 042656 

7004 042662 
7005 



104457 
001002 
005011 
011670 

104406 
005723 

022703 000414 
001346 

104406 



7$f: 

80S: 
120$: 



ERRSOFT ERRNO.URTERR.PKTSSR 



CKLOOP 

TST (R3)* 
CNP #268. *R3 
BNE 65S 
CKLOOP 



.-SOFT ERROR, REALLY CHECKING TNC 
;REAO COIflAND 

:TSSR INCORRECT AFTER MITE DATA 

TRAP CURSOFT 



.-LOOP IF SELECTED 



.tlORO 
.WORD 
.WORD 



514 
WRTERR 

PKTSSR 



;BUHP RECORD SIZE 
;END OF RECORD VET 
;BR. IF MORE RECORDS TO WRITE 
;L00P if SELECTED 

TRAP 



TRAP CtCLPI 



CSCLP1 



ISSUE REWIND COMMNO TO SELECTED TAPE DRIVE 



004737 010424 

103407 

010001 

004737 020064 

104456 
001003 
051326 
016330 

104406 



JSR 
BCS 
NOV 

JSR 

ERRNRD 



130t: CKLOOP 



PC.REWIND 
130$ 
R0.R1 
PC.FATCHK 

ERRN0.T24mM.EXPREC 



;CALL TAPE REWIND COMMAND 
;BR, IF NO PROBLEM 
:SAVE TSSR 

:INC AND CHECK FOR MORE THAN 25 ERRORS 
:RkWIND NOT ACCEPTED 



;LOOP IF SELECTED 



TRAP 

.WORD 
.WORD 
.WORD 



C$ERHRD 

515 

T2^RWN 
EXPREC 



TRAP CSCLP1 



;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



013701 050066 
010102 

052702 000002 

020102 

001406 

004737 020064 

104456 
001004 
051043 
016330 

104406 

012703 000400 
013737 003072 050172 



NOV 
MOV 
•IS 
CMP 
BEQ 
JSR 

ERMIRD 



140$: CKLOOP 



T24BFRH.R1 

R1.R2 

iBIT1,R2 

R1.R2 

140$ 

PC.FATCHK 

EMW0.T24BOT .EXPREC 



N?V 
NOV 



f256..R3 
FREE.T24RB 



;PICK UP XSTO 

;SET UP EXPECTED 

:SET 60T BIT IN EXPECTED 

.-DOES EXP « REC'D 

:BR. IF EQUAL (OK) 

;INC AND CHECK FOR MORE THAN 25 ERRORS 
••TAPE NOT AT SOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 

;LOOP IF SELECTED 

TRAP 

;RECORD SIZE 

;STAIITIN6 READ BUFFER ADDRESS 



CSERHRO 
516 
T24BOT 
EXPREC 

CSCLPI 



N U 
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7007 
7008 
7009 
7010 
7011 

7012 042670 

7013 042676 
70U 042702 

7015 042706 

7016 042712 

7017 042716 

7018 04:722 

7019 042726 

7020 042730 

7021 042732 

7025 042736 
042736 
042740 
042742 
042744 

7026 042746 
042746 

7027 0427S0 

7028 042754 

7029 042756 

7030 042762 

7031 042764 

7032 042766 

7033 042770 

7034 042772 

7035 042774 

7039 043000 
043000 
043002 
043004 
043006 

7040 043010 
043010 

7041 043012 

7042 043014 

7043 043016 

7044 043020 

7045 043022 

7046 043024 

7047 043030 

7048 043032 
043032 

7049 043034 
0430S4 
043034 

7050 043036 

7051 043044 

7052 043046 

7053 043052 



012737 
012704 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
001005 
005104 
011670 

104406 
013702 
010304 
162704 
060204 
021403 
001410 
011401 
010302 
004737 

104456 
001006 
051110 
016330 

104406 
005724 
160204 
020403 
001360 
005723 
022703 
001322 

104406 



104403 
023727 
002402 
004737 



READ DATAJE.AttC.SUB CORRAND 



110001 050170 

050170 

050176 

177776 

017104 

000000 

000200 



020064 



003072 
000400 



020064 



000412 



NOV 

165t: NOV 
NOV 
NOV 
JSR 
NOV 
NOV 
CNP 
BEO 
JSR 

ERRMRD 



170S: CKLOOP 

NOV 
NOV 
SUB 

1731: ADD 
CNP 
BEQ 
NOV 
NOV 
JSR 

ERRHRD 



180S: CKLOOP 

TST 
SUB 
CNP 



190S: 



002170 0^31 
020136 



999S: 



TST 
CNP 
BNE 

CKLOOP 
ENDSUB 



CNP 
BLT 
JSR 



f110001.T24PK3 

fT24PX3,R4 

R3.T24SZ 

R4«TSDB(R5) 

PC.UAITF 

TSSR(R5).R1 

fSSR.R2 

R1.R2 

170$ 

PC.FATCHK 

ERRNO^RDERR.PKTSSR 



FREE.R2 

R3,R4 

f256..R4 

R2.R4 

(R4).R3 

1808 

(R4).R1 

R3.R2 

PC.FATCHK 

ERRII0,T24DTA,EXPREC 



(R4)« 

R2.R4 

R4.R3 

17$$ 

(R3)« 

f266.,R3 

165S 



FATFLG,f25. 
999S 

PC.CKOROP 



.•READ DATAJE.ACK.SUB CONNANO 
.SET UP R4 WITH PACKET ADDRESS 
;SET UP RECORD SUE IN PACKET 
: ISSUE COMNAND 
.yAIT FOR SSR TO SET 
;6ET TSSR CONTENTS 
;SET UP EXPECTED 
;ARE THEV EQUAL 
*BR« IF OK 

;INC AND CHECK FOR NORE THAN 25 ERRORS 
;TSSR INCORRECT AFTER READ DATA 

TRAP CSERHRD 
.tfORD 517 
.WORD RDERR 
.WORD PKTSSR 

;LOOP IF SELECTED 

TRAP CtCLPI 

;GET BUFFER ADDRESS 

.•CURRENT RECORD SIZE 

.FIRST LOCATION IN BUFFER 

;GET LOCATION IN BUFFER (ADDRESS) 

; CHECK DATA READ (R3«DATA ALSO) 

.BR. IF ALL IS WELL 

.•RECD DATA 

;EXPECTED DATA 

;INC AND CHECK FOR NORE THAN 25 ERRORS 
.•DATA READ NOT ^ WRITTEN 

TRAP CSERHRD 
.WORD 518 
.WORD T24DTA 
.WORD EXPREC 

;LOOP IF SELECTED 

TRAP CtCLPI 

;BUNP TO NEXT LOCATION 

:SET SIZE TO CORRECT VALUE 

.END OF RECORD YET 

;BR. IF NOT AT END OF RECORD 

.•BUKP RECORD SIZE 

;END OF RECORD YET 

;BR. IF NONE RECORDS TO WRITE 

.LOOP IF SELECTED 

TRAP CSCLP1 
;»»»»»» END SUBTEST »»»»»» 
L10060: 

TRAP CSESUB 
:1S ERROR COUNT AT 25 
;BR. IF LESS THAN 25 
;TRY TO DROP THE UNIT 
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SEQ 177 



7055 
7056 
7057 
7058 
7059 
7060 
7061 
7062 
7063 
7064 
7065 
7066 

7067 043052 
043052 
043052 

7068 04S0S4 

7069 043060 

7070 043064 
7071 

7072 
7073 
7074 
7075 
7076 
7077 

7078 043070 

7079 043074 

7080 043076 

7084 043102 

7085 043104 
043104 
043106 
043110 
043112 

7086 043114 

7087 043114 
7088 

7089 
7090 
7091 
7092 
7095 
7094 

7095 045120 

7096 045124 

7097 045126 

7101 045132 

7102 043154 
045154 
045156 
045140 
045142 

7105 045144 
0451U 

7104 
7105 
7106 



TEST 5. SUBTEST 5 

VERIFIES THAT A REaO FORVARD COHNAND READING A RECORD 
LONGER THAN THE SPECIFIED BYTE COUNT CAUSES TAPE 
STATUS ALERT TERMINATION VITH THE RECORD LENGTH LONG 
(RLL) BIT SET. 



104402 



105407 
004757 
010001 

104455 
001007 
005550 
011656 







liGNSUB 




;»»»»»» BEGIN SUBTEST »»»»»» 










T5.5: 




052664 






PC.T24RT3 


TRAP 


CtBSUB 




JSR 


;SET UP OTHER COMMAND PACKET 


052550 




JSR 


PC,T24REST 


;SET COMMAND PACKET 




052622 




JSR 


PC.T24RT2 


:SET UP OTHER COMMAND PACKET 






• 

.•ISSUE CONTROLLER "SOFT" INITIALIZE - 

• 
• 


CARRY BIT CLEAR IF ERROR 




016650 




JSR 


PC.SOFINIT 


:D0 INITIALIZE ON CONTROLLER 


1 
i 


020064 




BCS 


20$ 


••BR IF INIT UAS OK 






JSR 


PC.FATCHK 


:INC AND CHECK FOR MORE THAN 25 


ERRORS 






MOV 


R0.R1 


: CONTENTS OF TSSR REGISTER 








ERRDF 


ERRNO.SFIERR*SFIMSG 


; FATAL ERROR TSSR MAS NOT OK 












TRAP 


CSERDF i 










.yORD 


519 










.WORD 


SFIERR 




20$: 






.WORD 


SFINSG 


050040 












MOV 


fT24PACKET.R4 


.•SUBROUTINE NEEDS PACKET ADDRESS 



.•URITE CHARACTERISTICS COMMAND (CALL TO URTCHR) 



004757 010522 
105407 

004757 020064 
010001 

104456 
001010 
004754 
01 1656 

104406 



24$: 



JSR 
BCS 
JSR 
MOV 
ERRNRD 



CKLOOP 



PC.URTCHR 
24$ 

PC.FATCHK 
R0.R1 

ERRN0.WRTNS6.SF1MS6 



; ISSUE URITE CHARACTERISTICS 

:BR. IF COMMAND ISSUED OK 

;INC AND CHECK FOR MORE THAN 25 ERRORS 

.•SAVE CONTENTS OF TSSR 

.-WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

;LOOP IF SELECTED 

TRAP 



CSERHRD 

520 

WRTMSG 
SFIMSG 



CSCLPI 
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TEST S: BASIC READ DATA (FORWARD AND REVERSE) 
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SEO 178 



7107 
7108 
7109 
7110 

7111 04SU6 

7112 043152 
/1 13 0«.31S4 
7114 043156 

7118 043162 
043162 
043164 
043166 
043170 

7119 043172 
043172 

7120 
7.21 
7122 
7123 
^24 
7125 
7126 

7127 043174 

7128 043200 

7129 043202 

7130 043206 

7131 043210 

7132 043212 

7136 043216 
043216 
043220 
043222 
043224 

7137 043226 
043226 

7138 043230 

7139 043234 
7140 

7141 
7142 
7143 
7144 
7145 
7146 

7147 043242 

7148 043250 

7149 043254 

7150 043254 

7151 043260 

7152 043264 

7153 043270 

7154 043274 

7155 043300 

7156 043302 

7157 043304 
7161 

7162 



ISSUE REVIND COfWAND TO SELECTED TAPE ONIVE 



004737 
103407 
010001 
004737 

104456 
001011 
051326 
011670 

104406 



010424 
020064 



30ft: 



JSR 
BCS 
MOV 
JSR 

ERRHRD 



CKLOOP 



PC.NtUlNO 
30ft 
RO.RI 
PC.FATCHK 

ERRN0,T24RUN.PKTSSR 



.'CALL TAPE REMIND CQNUND 
:BR. IF NO PMtLEfl 

.•SAVE TSSR 

:INC AND CHECK FOR NME TNAN 25 ERRORS 
.REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 

;LOOP IF SELECTED 

TRAP 



CftERHRD 
521 

T24RWN 
PKTSSR 



CftCLPI 



.'READ NESSA6E SUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



013701 


050066 


NOV 


T24BFR«6.R1 


.•PICK UP XSTO 




010102 




NOV 


R1.R2 


:SET UP EXPECTED 




052702 


000002 


BIS 


#BIT1.R2 


:SET BOT BIT IN EXPECTED 
;DOES EXP « REC'D 




020102 




CNP 


R1.R2 
40i 




001406 




BEQ 


:BH. IF EQUAL (OK) 




004737 


020064 


JSR 


PC.FATCNK 


:INC AND CHECK FOR MORE THAN 25 ERRORS 






ERRHRD 


ERRN0.T24B0T,EXPREC 


.-TAPE NOT AT BOT AFTER REWIND 




104456 






TRAP 


CftERHRD 


001012 








.WORD 


522 


051043 








.WORD 


T24B0T 


016330 


40ft: 


CKLOOP 




.WORD 

:LOOP IF SELECTED 


EXPREC 


104406 








TRAP 


CftCLPI 


012703 


001000 


NOV 


f512..R3 


.RECORD SIZE 




013737 


003072 050172 


NOV 


FREE.T24RB 


.•STARTING WRITE BUFFER ADDRESS 





.•WRITE DATA,ACK.CVC«1 CONHAND 



012737 
012704 

010337 
010465 
004737 
016501 
012702 
020102 
001406 
004737 



140005 050170 
050170 

050176 
177776 
017104 
000000 
000200 



020064 



65ft: 



NOV #1 40005. T24PK3 

NOV fT24PK3.R4 

NOV R3.T24SZ 

NOV R4.TSDB(R5) 

JSR PC.WAITF 

NOV TSSR(R5).R1 

NOV fSSR.R2 

CNP R1 .R2 

BEO 75ft 

JSR PC.FATCHK 



:WRITE DATA.ACK.CVC>1 CONHAND 
.SET UP R4 WITH PACKET ADDRESS 

;SET UP RECORD SIZE IN PACKET 

.•ISSUE CONNAND 

.•WAIT FOR SSR TO SET 

.GET TSSR CONTENTS 

;SET UP EXPECTED 

:ARE THEY EQUAL 

'BR IF OK 

•INC AND CHECK FOR NORE THAN 25 ERRORS 
.•SOFT ERROR. REALLY CHECKING THE 
Rgin IIATA CQNNAMD 
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TEST $: BASIC READ DATA (FQRVARd AND REVERSE) 
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SEQ 179 



7163 043310 
043310 
043312 
043314 
043316 

7164 043320 
043320 

7165 043322 
7166 

7167 
7166 
7169 
7170 
7171 
7172 

7173 043322 

7174 043326 

71 75 043330 

7176 043332 

7180 043336 
043336 
043340 
043342 
043344 

7181 043346 
043346 

7182 
7183 
7184 
718$ 
7186 
7187 
7188 

7189 0433S0 

7190 043354 

7191 043356 

7192 043362 

7193 043364 

7194 043366 

7198 043372 
043372 
043374 
043376 
043400 

7199 043402 
043402 

7200 043404 

7201 043410 
7202 

7203 
7204 
7205 
7206 
7207 
7208 

7209 04S416 

7210 04S424 



104457 
001013 
005011 
011670 

104406 



004737 
103407 
010001 
004737 

1044S6 
001014 
051326 
011670 

104406 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
001015 
051043 
016330 

104406 
012703 
013737 



012737 
012704 



ERRSOFT ERRNO.URTERR.PKTSSR 



75S: CKLOOP 
120S: 



;TSSR INCORRECT AFTER WRITE DATA 

TRAP CtERSOFT 

.MUD 523 

.WORD URTCRR 

.WORD PKTS&R 

.'LOOP IF SELECTED 

TRAP CSCLPt 



.•ISSUE REVINO COWMND TO SELECTED TAPE DRIVE 



010424 
020064 



JSR 
BCS 
NOV 
JSR 

ERRHRD 



130t: CKLOOP 



PC.REUIND 
130S 
R0.R1 
PC.FATCHK 

ERRN0,T24R«N,PKTSSR 



.CALL TAPE REWIND COMMAND 
:BR. IF NO PROBLEM 
.•SAVE TSSR 

;INC AND CHECK FOR MORE THAN 25 ERRORS 
.'REWIND NOT ACCEPTED 

TRAP CtERHRO 
.WORD 524 
.WORD T24RWN 
.WORD PKTSSR 

:LOOP IF SELECTED 

TRAP CSCLPI 



.-READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



050066 
000002 

020064 



000400 

003072 050172 



MOV 


T24BFR«6.R1 


:PICK UP XSTO 




MOV 


R1.R2 


;SET UP EXPECTED 




BIS 


«BIT1.R2 


;SET BOT BIT IN EXPECTED 
;OOES EXP s REC'D 




CMP 


R1.R2 




BEQ 


140S 


;BR. IF EQUAL (OK) 




JSR 


PC.FATCHK 


.•INC AND CHECK FOR MORE THAN 25 


ERRORS 


EMWRD 


ERRN0.T24B0T.EXPREC 


.•TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 


CSERHRD 
525 
T24B0T 
EXPREC 


140S: CKLOOP 




.•LOOP IF SELECTED 

TRAP 


CSCLPI 


MOV 


f256..R3 


{RECORD SIZE 




MOV 


FREE.T24RB 


.•STARTING READ BUFFER ADDRESS 





.•READ DATA.ACK.CVCsl COMMAND 



140001 050170 
050170 



MOV #140001 .T24PK3 
165$: MOV fT24PK3.R4 



.READ DATA.ACR.CVC«1 COMMAND 
•SgT UP R4 MITM PAftfT AftBtf M 
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TEST 5: BASIC READ DATA (FORIMRD AND REVERSE) 
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SEO 16C 



7211 (K3430 

7212 (K3434 

7213 0^3AA0 
72U M34U 

7215 0434S0 

7216 043454 

7217 043456 

7218 043460 

7222 043464 
043464 
043466 
043470 
043472 

7223 043474 
043474 

7224 
7225 
7226 
7227 
7228 
7229 
7230 

7231 043476 

7232 043502 

7233 043504 

7234 043510 

7235 043512 

7236 043514 

7240 043520 
043520 
043522 
04SS24 
043526 

7241 043530 

7242 043530 
043530 
043530 

7243 043532 

7244 043540 

7245 043542 

7246 043546 



010337 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
001016 
052374 
011670 

104406 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
001017 
0S2U2 
016330 



104403 
023727 
002402 
004737 



050176 
177776 
017104 
000000 
100204 



020064 









MV 


R4.TSDB(R5) 


•issue CMMAMIk 


JSR 


PC.WAITP 


.•WAIT FOR SSR TO SET 


NOV 


mR(R5),R1 


:6ET TSSR CONTENTS 


NOV 


ffSSN:SC!BIT2.R2 


;SET UP EXPECTED 


CNP 


R1.R2 
170f 


.-ARE THEV EQUAL 


aEQ 


;BR, IF OK 


JSR 


PCFATCNK 


;INC AND CHECK FOR NORE THAN 25 ERRORS 


ERRHRO 


ERRN0.T24TRL.PKTSSR 


;TSSR INCORRECT AFTER READ DATA 



170S: CKLOOP 



;LOOP IF SELECTED 



TRAP 
.WORD 
.yORD 
.WORD 



CSERNRO 
526 

T24TRL 
PKTSSR 



TRAP CSClPI 



.•READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



050066 
010000 

020064 



NOV 
NOV 
BIS 
CNP 
BEQ 
JSR 

ERRHRD 



T24BFR«6.R1 

R1.R2 

#BIT12,R2 

R1.R2 

180S 

PCFATCHK 

ERRN0,T24L0N.EXPREC 



180t: 



002170 000031 
020136 



999$: 



ENDSUB 



CNP 
BLT 
JSR 



FATFLG,f25. 
999S 

PC.CKDROP 



;6ET NESSA6E BUFFER 

;SET UP EXPECTED 

;SET TNE RLL BIT IN EXPECTED 

;ARE THEV EQUAL 

:BK, IF EQUAL (ALL IS WELL) 

;INC AND CHECK FOR NORE THAN 25 ERRORS 

:THE RLL BIT WAS NOT SET IN XSTO 

TRAP CtERHRO 
.WORD 527 
.WORD T24L0N 
.WORD EXPREC 

;»»»»»» END SUBTEST »»»»»» 
L10061: 

TRAP CSESUB 
;IS ERROR COUNT AT 25 
;6R, IF LESS THAN 25 
:TRY TO DROP THE UNIT 
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TEST S: BASIC READ DATA (FORWARD AND REVERSE) 
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SEQ 181 



7248 

7249 

7250 

7251 

7252 

7253 

7254 

7255 

7256 

7257 

7258 

7259 

7260 

7261 

7262 

7263 

7264 

7265 043546 
043546 
043546 

7266 043550 

7267 043554 

7268 043560 
7269 

7270 
7271 
7272 
7273 
7274 
7275 

7276 043564 

7277 043570 

7278 043572 

7282 043576 

7283 043600 
043600 
043602 
043604 
043606 

7284 043610 

7285 043610 
7286 

7287 
7288 
7289 
7290 
7291 
7292 

7293 043614 

7294 043620 

7295 043622 

7299 043626 

7300 043630 
043630 
043632 
043634 
043636 



TEST 5. SUBTEST 4 

VERIFIES THAT A REAt) FORWARD COMMAND READING A RECORD 
SHORTER THAN THE SPECIFIED BYTE COUNT CAUSES TAPE 
STATUS ALERT TERMINATION WITH THE RECORD LENGTH SHORT 
(RLS) BITS SET. IT IS VERIFIED THAT THE RESIDUAL BYTE 
COUNT (RBPCR) IN THE MESSAGE BUFFER CONTAINS THE 
PROPER NONZERO VALUE (E.G. THE DIFFERENCE BETWEEN 
THE ORIGINAL BYTE COUNT AND THE ACTUAL RECORD 
LENGTH). 



104402 

004737 052664 

004737 052530 

004737 052622 



BGNSUB 



JSR 
JSR 
JSR 



PC.T24RT3 

PC.T24REST 

PC.T24RT2 



;»»»»»» BEGIN SUBTEST »»»»»» 
T5.4: 

TRAP CSBSUB 
:SET UP OTHER COMMAND PACKET 
;SET COMMAND PACKET 
; SET UP OTHER COMMAND PACKET 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



004737 016630 
103407 

004737 020064 
010001 

104455 
001020 
003550 
011656 

012704 050040 



JSR 
BCS 
JSR 
NOV 
ERRDF 



PC.SOFINIT 
201 

PC.FATCHK 
RO.RI 

ERRNO«SFIERR.SFIMSG 



20S: 



NOV 



«T24PACKET.R4 



:D0 INITIALIZE ON CONTROLLER 
;BR IF INIT WAS OK 

:INC AND CHECK FOR NORE THAN 25 ERRORS 

.•CONTENTS OF TSSR REGISTER 

; FATAL ERROR TSSR WAS NOT OK 

TRAP CSERDF 
.WORD 528 
.WORD SFIERR 
.WORD SFINS6 

.•SUBROUTINE NEEDS PACKET ADDRESS 



WRITE CHARACTERISTICS CONNAND (CALL TO WRTCNR) 



004737 010322 
103407 

004737 020064 
010001 

104456 
001021 
004754 
011656 



JSR 
BCS 
JSR 
NOV 
ERRHRD 



PC.WRTCHR 
24$ 

PC.FATCHK 
RO.RI 

ERRNO.WRTNSG.SFINSG 



.•ISSUE WRITE CHARACTERISTICS 

:BR« IF COMMAND ISSUED OK 

:INC AND CHECK FOR MORE THAN 25 ERRORS 

:SAVE CONTENTS OF TSSR 

;WR1TE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 



CtERHRD 
5?9 

WRTNSG 
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TEST 5: BASIC READ DATA (FORUARO AND REVERSE) 
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SEQ 18: 



7301 043640 
043640 

7302 
7303 
7304 
7305 
7306 
7307 
7308 

7309 043642 

7310 043646 

7311 0436S0 

7312 043652 

7316 043656 
043656 
043660 
043662 
043664 

7317 043666 
043666 

7318 043670 

7319 043674 
7320 

7321 
7322 
7323 
7324 
7325 
7326 

7327 043702 

7328 043710 

7329 043714 

7330 043714 

7331 043720 

7332 043724 

7333 043730 

7334 043734 

7335 043740 

7336 043742 

7337 043744 
7341 

7342 

7343 043750 
043750 
043752 
043754 
0437S6 

7344 043760 
043760 

7345 043762 
7346 

7347 
7348 
7549 
7350 
7351 
7352 



104406 



24S: 



CKLOOP 



.-LOOP IF SELECTED 



TRAP CSCLPI 



ISSUE REMIND CQNMND TO SELECTED TAPE DRIVE 



004737 010424 

103407 

010001 

004737 020064 

104456 
001022 
051326 
011670 

104406 

012703 000400 
013737 003072 050172 



JSR 
BCS 
NOV 
JSR 

ERRHRD 



30$: CKLOOP 



PCREVIND 
308 
R0.R1 
PC.FATCHK 

ERRN0,T24RUN.PKTSSR 



;CALL TAPE REWIND COMNAND 
:BR, IF NO PROBLEN 
;SAVE TSSR 

:INC AND CHECK FOR NORE THAN 25 ERRORS 
;REWIND NOT ACCEPTED 



;L00P IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



CSERHRD 

530 

T24RWN 
PKTSSR 



NOV 
NOV 



#256. .R3 
FREE.T24RB 



.•RECORD SIZE 
.•STARTING WRITE BUFFER ADDRESS 



TRAP CSCLPI 



.•WRITE DATA.ACK.CVCsl COHNAND 



012737 


140005 050170 




NOV 


#140005. T24PK5 


.•WRITE DATA.ACK.CVCsl CONNAND 


012704 


050170 




NOV 


#T24PK5.R4 


;SET UP R4 WITH PACKET ADDRESS 






65$: 




010337 


050176 




NOV 


R5.T24SZ 


••SET UP RECORD SIZE IN PACKET 


010465 


177776 




NOV 


R4.TSDB(R5> 


.•ISSUE CONNAND 


004737 


017104 




JSR 


PC.WAITF 


.-WAIT FOR SSR TO SET 


016501 


000000 




NOV 


TSSR(R5).R1 


:6ET TSSR CONTENTS 


012702 


000200 




NOV 


#SSR,R2 
R1.R2 


:SET UP EXPECTED 


020102 






CNP 


:ARE THEY EQUAL 


001406 






BEQ 


75$ 


.•BR. IF OK 


004757 


020064 




JSR 


PC.FATCHK 


;INC AND CHECK FOR NORE THAN 25 ERRORS 










.•SOFT ERROR. REALLY CHECKING THE 
.•READ DATA CONNAND 








ERRSOFT ERRNO.URTERR.PKTSSR 


;TSSR INCORRECT AFTER WRITE DATA 


104457 










TRAP CSERSOF 


001023 










.WORD 531 


005011 










.WORD WRTERR 


011670 




75$: 


CKLOOP 




.WORD PKTSSR 

.•LOOP IF SELECTED 


104406 




120$: 






TRAP CSCLPI 



.•ISSUE REWIND CONNAND TO SELECTED TAPE DRIVE 
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TEST S: BASIC READ DATA {FORWARD AND REVERSE) 
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SCO '8' 



7353 043762 

7354 043766 

7355 043770 

7356 043772 

7360 043776 
043776 
044000 
044002 
044004 

7361 044006 
044006 

7362 044010 

7363 044014 
7364 

7365 
7366 
7367 
7368 
7569 
7370 

7371 044022 

7372 044030 

7373 044034 

7374 044040 

7375 044044 

7376 044050 

7377 044054 

7378 044060 

7379 044062 

7380 044064 

7384 044070 
044070 
044072 
044074 
044076 

7385 044100 
044100 

7386 
7387 
7388 
7389 
7390 
7391 
7392 

7393 044102 

7394 044106 

7395 044110 

7396 044114 

7397 044116 

7398 044120 

7402 044124 
044124 
044126 
044130 
0441*2 

7403 C44154 

7404 044154 



004737 
103407 
010001 
004737 

10445o 
001024 
051526 
011670 

104406 
012705 
015757 



010424 
020064 



150S: 



JSR 
BCS 

mv 

JSR 

ERRHRD 



[KLOOP 



PC.REUIND 
130S 
RO.RI 
P''.rATCHK 

ERRNO.T24RUN.PKTSSR 



:CAtL TAPE REWIND CONNANO 
:BR. IF NO PROBLEM 
.SAVE TSSR 

;INC AND CNECK FOR MORE TNAN 25 ERRORS 
••REUIND NOT ACCEPTED 



.-LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



CSERNRD 
532 

T24RWN 
PKTSSR 



001000 

003072 050172 



NOV 
NOV 



#512. «R3 
FREE.T24RB 



;RECORD SIZE 
: STARTING READ BUFFER ADDRESS 



TRAP C»CLP1 







•READ DATA.ACK.CVCsl CONNAND 






012737 


140001 050170 




NOV 


#140001 .T24PK5 


:READ DATA.ACK.CVC*1 CONNAND 




012704 


050170 


165$: 


NOV 


#T24PK5,R4 


;SET UP R4 WITH PACKET ADDRESS 




010357 


050176 




NOV 


R5«T24SZ 


;SET UP RECORD SIZE IN PACKET 




010465 


177776 




NOV 


R4.TSDB(R5) 


.'ISSUE CONNAND 




004757 


017104 




JSR 


PC.WAITF 


.•WAIT FOR SSR TO SET 




016501 


000000 




NOV 


TSSR(R5).R1 


;6ET TSSR CONTENTS 




012702 


100204 




NOV 


#SSR!SC!BIT2.R2 


;SkT UP EXPECTED 




020102 






CNP 


R1.R2 


.-ARE THEY EQUAL 




001406 






BED 


170t 


:BR. IF OK 




004757 


020064 




JSR 


PC.FATCHK 


:INC AND CHECK FOR NORE THAN 2S 


ERRORS 








ERRHRD 


ERRN0.T24TRL.EXPREC 


;TSSR INCORRECT AFTER READ DATA 




104456 










TRAP 


CSERHRD 


001025 










.WORD 


555 


052574 










.WORD 


T24TRL 


016550 










.WORD 


EXPREC 






170S: 


CXLOOP 




;LOOP IF SELECTED 




104406 










TRAP 


CSCLP1 



READ NESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



0S0066 
040000 

020064 



015701 
010102 
052702 
020102 
001406 
004757 

104456 
001026 
052224 
016550 



015^01 C50064 



180S: 



NOV T24BFR«6 R1 

NOV R1 .R2 

BIS #BIT14.R2 

CNP R1.R2 

BEQ 180$ 

JSR PC.FATCHK 

ERRHRD ERRNO.T24LOP, EXPREC 



NOV T24BFB»4.R1 



;6ET NESSAGE BUFFER 

;SET UP EXPECTED 

.'SET THE RLS BIT IN EXPECTED 

;ARE THEY EQUAL 

;BR. IF EQUAL (ALL IS WELL) 

:INC AND CHECK FOR NORE THAN 25 ERRORS 

;THE RLL BIT WAS NOT SET IN XSTO 

TRAP CSERHRD 
.WORD 534 
.WORD T24L0P 
.WORD EXPREC 

;P!CK UF RFSIDUAL BYTE COUNTER 



C IS 
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7405 0A4U0 

7406 044144 

7407 044146 

7408 044150 

7412 044154 
044154 
044156 
044160 
044162 

7413 044164 
044164 

7414 044166 
044166 
044166 

7415 044170 

7416 044176 

7417 044200 

7418 044204 



012702 000400 

020102 

001406 

004737 020064 

104456 
001027 
052306 
016330 

104406 



104403 

023727 002170 000031 
002402 

004737 020136 



190ti 



NOV 
CNP 
BEQ 
JSR 

ERRHRD 



CKLOOP 
ENDSUB 



999S: 



CNP 
8LT 
JSR 



fZS6.*R2 

R1.R2 

190t 

P''.rATCHK 

ERRN0.T24P8P.EXPREC 



FATFLG,f2S. 
999S 

PCCKDROP 



:THIS SHOULD BE THE DIFFERENCE 
;IS THE DIFFERENCE CORRECT 
'BR iF CORRECT 

■INC AND CHECK FOR NORE THAN 2S ERRORS 
;RBPCR NOT CORRECT 

TRAP CtERHRD 
.WORD 535 
.yORD T24PBP 
.WORD EXPREC 

.•LOOP iF SELECTED 

TRAP CICLP1 
:»»»»»» END SUBTEST »»»»»» 
Li 0062: 

TRAP CIESUB 
;IS ERROR COUNT AT 25 
;BR. IF LESS THAN 25 
;TRV TO DROP THE UNIT 



CZTUXAO TU80 ffiONt €N0 PMT e lUCRO K1200 29-nAR-63 13:52 
TEST 5: BASIC REAb DATA (PORUARO AND REVERSE) 



0 IS 
PAGE 105 



SEQ les 



7420 
7421 
7422 
7423 
7424 
7425 
7426 
7427 
7428 
7429 
7430 
7431 

7432 044204 
044204 
044204 

7433 044206 

7434 044212 

7435 044216 
7436 

7*37 
7438 
7439 
7440 

7441 044222 

7442 044226 

7443 044230 

7447 044234 

7448 044236 
044236 
044240 
044242 
044244 

7449 044246 
7450 

7451 
7452 
7453 
7454 

7455 044252 

7456 044256 

7457 044260 

7461 044264 

7462 044266 
044266 
044270 
044272 
044274 

7463 044276 
044276 

7464 
7465 
7466 
7467 
7468 

7469 044300 

7470 044304 

7471 044S06 



104402 

004737 052664 

004737 052530 

004737 052622 



103407 
004737 
010001 

104455 
001030 
003550 
011656 



004757 010424 

103407 

010001 



TEST 5. SUBTEST 5 

VERIFIES THAT READ REVERSE COmANDS WITH SUB^O 
OPERATES PROPERL''. THE TAPE IS FIRST REWOUND AND THEN 
WRITTEN WITH A SERIES OF TEST RECORDS VARIN6 IN 
LENGTH AND DATA CONTENT. THE TAPE IS THEN READ IN REVERSE 
SEQUENTIALLY AND THE RESULTS 

(STATUS, DATA, ETC.) VERIFIED. THE BYTE COUNT ON 
EACH READ REVERSE CONHAND IS SET TO THE LENGTH OF THE 
EXPECTED RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD 
OCCUR. 



BGNSUB 



JSR 
JSR 
JSR 



PC.T24RT3 

PC,T24REST 

PC,T24RT2 



;»»»»»» BEGIN SUBTEST »»»»»» 
T5.5: 

TRAP CSBSUB 
:SET UP OTHER COMMAND PACKET 
:SET COMMAND PACKET 
;SET UP OTHER COMMAND PACKET 



; ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



016630 




JSR 


PCSOFINIT 


;D0 INITIALIZE ON CONTROLLER 


020064 




BCS 


20$ 


;BR IF INIT WAS OK 




JSR 


PC.FATCHK 


;INC AND CHECK FOR MORE THAN 25 ERRORS 






NOV 


R0.R1 


;CUNTENTS OF TSSR REGISTER 






ERROF 


ERRNO.SFIERR.SFIHSG 


.•FATAL ERROR TSSR WAS NOT OK 








TRAP CSERIF 
.WORD 536 
.WORD SFIERR 
.WORD SFIHS6 


0S0040 


20$: 


MOV 


#T24PACKET,R4 


.-SUBROUTINE NEEDS PACKET ADDRESS 



.•WRITE CHARACTERISTICS COHHAND (CALL TO URTCHR) 



004737 


010322 




JSR 


PC.WRTCHR 


.ISSUE WRITE CHARACTERISTICS 




103407 






BCS 


24$ 


:BR. IF COMMAND ISSUED OK 




004757 


020064 




JSR 


PC.FATCHK 


:1NC AND CHECK FOR MORE THAN 25 ERRORS 


010001 






NOV 


R0.R1 


:SAVE CONTENTS OF TSSR 










ERRHRD 


ERRN0.WRTMS6.SFIHSG 


;WRITE CHARACTERISTISC FAILED 




104456 








TRAP 


C$ERHRD 


001031 










.WORD 


537 


004754 










.WORD 


WRTMSG 


0116S6 










.WORD 


SFINSG 






24$: 


CKLOOP 




;LOOP IF SELECTED 




104406 










TRAP 


C$CLP1 



: ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 



JSR 
BCS 
JgV. 



PC .REWIND 

50$ 

R0.R1 



;CALL TAPE REWIND COMMAND 

:BR. IF NO PROBLEM 

;SAVt TSSR 
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SEQ 166 



7^72 044310 

7476 0443U 
044314 
044316 
044320 
044322 

7477 044324 
044324 

7478 044326 

7479 044332 
7480 

7481 
7482 
7483 
7484 

7485 044340 

7486 044346 

7487 044352 

7488 044354 

7489 044360 

7490 044364 

7491 044370 

7492 044374 

7493 044400 

7494 044404 

7495 044406 

7496 044410 
7500 

7501 

7502 044414 
044414 
044416 
044420 
044422 

7503 044424 
044424 

7504 044426 

7505 044430 

7506 044434 

7507 044436 
044436 

7508 044440 

7509 044442 
7510 

7511 
7512 
7513 
7514 

7515 044450 

7516 0444S6 

7517 044462 

7518 044466 

7519 044472 

7520 044476 

7521 0U$02 

7522 044S06 

7523 044510 



004737 020064 

104456 
001032 
051326 
011670 



104406 
012703 
013737 



30S: 



JSR 
ERRHRO 



CKLOOP 



PC.FATCHK 

ERRN0.T24RWN,PKTSSR 



012737 
012704 
010S00 
004737 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
004737 



104457 
001033 
005011 
011670 

104406 
005723 
022703 
001346 

104406 
005743 
013757 



012757 
012704 
010537 
010465 
004757 
016501 
012702 
020102 
001406 



000400 

003072 050172 



rav 
mv 



#256.. R3 
FREE.T24RB 



:INC AND CHECK FOR MORE THAN 25 ERRORS 
.-REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 

;LOOP IF SELECTED 

TRAP 

.•RECORD SIZE 

.'STARTING WRITE BUFFER ADDRESS 



CSERHRD 
538 

T24RWN 
PK*SSR 

CSCLP1 



.•WRITE DATA.ACK.CVC«1 COIWANO 



140005 050^70 
050170 

020356 
050176 
177776 
017104 
000000 
000200 



020064 



000414 



005072 050172 





NOV 


#1 40005. T24PK3 


:WRITE DATA.ACK.CVC«1 CONNAND 




65$: 


NOV 


#T24PK5.R4 


:SET UP R4 WITH PACKET ADDRESS 




NOV 


R3,R0 


;SET PATTERN IN CORRECT REGISTER 




JSR 


PC.FILLNEN 


;FILL NENORV WITH RECORD SIZE 






NOV 


R3.T24SZ 


.-SET UP RECORD SIZE IN PACKET 






NOV 


R4.TSDB(R5) 


: ISSUE CONNAND 






JSR 


PC.WAITF 


.•WAIT FOR SSR TO SET 






NOV 


TSSR(R5).R1 


:GET TSSR CONTENTS 






NOV 


«SSR.R2 


:SET UP EXPECTED 






CNP 


R1.R2 


:ARE THEY EQUAL 






BEQ 


75$ 


:BR. IF OK 

;INC AND CHECK FOR NORE THAN 25 ERRORS 
.•SOFT ERROR. REALLY CHECKING THE 




JSR 


PC.FATCHK 








:READ DATA CONNAND 






ERRSOFT 


ERRNO.WRTERR.PKTSSR 


;TSSR INCORRECT AFTER WRITE DATA 








TRAP 


CSERSOF 








.WORD 


559 








.WORD 


WRTERR 


7SS: 






.WORD 


PKTSSR 


CKLOOP 




;LOOP IF SELECTED 

TRAP 


C$CLP1 




TST 




.•BUHP RECORD SIZE 






CNP 


#268. .R5 


;END OF RECORD YET 




SOS: 


ONE 


65$ 


;BR. IF NORE RECORDS TO WRITE 




CKLOOP 




.-LOOP IF SELECTED 

TRAP 


C$CLP1 




TST 


-<R5> 


.•SET BACK TO 512. 






NOV 


FREE.T24RB 


;STARTING READ BUFFER ADDRESS 





.•BEAD REVERSE DATA.ACK CONNAND 



100401 050170 

050170 

050176 

177776 

017104 

000000 

000200 



NOV #100401 .T24PK5 
165$: NOV #T24PK5.R4 
NOV R5.T24SZ 
NOV R4.TSDB(RS> 
JSR PC.WAITF 
NOV TSSR(R5).R1 
NOV #SSR.R2 
CNP R1.R2 
BEQ 170$ 



;READ REVERSE DATA.ACK CONNAND 
;SET UP R4 WITH PACKET ADDRESS 
:SET UP RECORD SIZE IN PACKET 
: ISSUE CONNAND 
;WAIT FOR SSR TO SET 
;GET TSSR CONTENTS 
.SET UP EXPECTED 
:ARE THEY EQUAL 



f 15 
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7524 044512 

7528 044S16 
044516 
044520 
044522 
044524 

7529 044526 
044526 

7530 044530 

7531 044534 

7532 044536 

7533 044542 

7534 044544 

7535 044546 

7536 044550 

7537 044552 

7538 044554 

7542 044560 
044560 
044562 
044564 
044566 

7543 044570 
044570 

7544 044572 

7545 044574 

7546 044576 

7547 044600 

7548 044602 

7549 044604 

7550 044610 

7551 044612 
044612 

7552 044614 
044614 
044614 

7553 044616 

7554 044624 

7555 044626 

7556 044632 



004737 020064 

104456 
001034 
051656 
011670 



104406 
013702 
010304 
162704 
060204 
021403 
001410 
011401 
010302 
004737 

104456 
001035 
051110 
016330 

104406 
005724 
160204 
020403 
001360 
005743 
022703 
001322 

104406 



003072 
000400 



020064 



000400 



JSR 

ERRHRD 



170t: CKLOOP 

NOV 
MOV 

SUB 

173S: ADD 
CNP 
BEQ 
NOV 
NOV 
JSR 
ERRNRD 



1801: CKLOOP 



TST 
SUB 
CNP 
BNE 
TST 
CNP 
BNE 

CKLOOP 



190S: 



104403 

023727 002170 000031 
002402 

004737 020136 



9991: 



ENDSUB 



CNP 
BLT 
JSR 



PC.FATCHK 

ERRN0.T24yDC.PKTSSR 



FREE.R2 

R3.R4 

#256.. R4 

R2.R4 

(R4).R3 

180$ 

(R4).R1 

R3.R2 

PC.FATCHK 

ERRN0J24DTA.EXPREC 



(R4)* 

R2.R4 

R4.R3 

17S$ 

-(R3) 

#256. .R3 

165S 



FATfL6,#25, 
999$ 

PCCKDROP 



;INC AND CHECK FOR HORE THAN 25 ERRORS 
;TSSR INCORRECT AFTER READ DATA 

TRAP C$ERNRD 
.WORD 540 
.WORD T24WDC 
.yORD PKTSSR 

;LOOP IF SELECTED 

TRAP CSCLPI 

:6ET BUFFER ADDRESS 
.•CURRENT RECORD SIZE 
.•FIRST LOCATION IN BUFFER 
:SET POINTER TO FRANE (WORD) 
: CHECK DATA READ (R3«DATA ALSO) 
;BR. IF ALL IS WELL 
;RECD DATA 
.'EXPECTED DATA 

.•INC AND CHECK FOR MORE THAN 25 ERRORS 
.•DATA READ NOT = WRITTEN 

TRAP C$E<^hRD 
.WORD 541 
.WORD T2^9TA 
.WORD EXPREC 

;LOOP IF SELECTED 

TRAP C$CLP1 

;BUNP TO NEXT LOCATION 

;6ET RID OF BASE ADDRESS 

;END OF RECORD YET 

;BR. IF NOT AT END OF RECORD 

:BUNP RECORD SIZE 

.-END OF RECORD YET 

.BR. IF NORE RECORDS TO WRITE 

:LOOP IF SELECTED 

TRAP C$CLP1 
;»»»»»» END SUBTEST »»»»»» 
L10063: 

TRAP C$ESUB 
.•IS ERROR COUNT AT 25 
.•BR. IF LESS THAN 25 
;TRY TO DROP THE UNIT 
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SEQ 188 



7558 
7559 
7560 
7561 
7562 
7563 
7564 
7565 
7566 
7567 
7568 
7569 

7570 044632 
044632 
044632 

7571 044634 

7572 044640 

7573 044644 
7574 

7575 
7576 
7577 
7578 
7579 
7580 

7581 044650 

7582 044654 

7583 044656 

7587 044662 

7588 044664 
044664 
044666 
044670 
044672 

7589 044674 

7590 044674 
7591 

7592 
7593 
7594 
7595 
7596 
7597 

7598 044700 

7599 044704 

7600 044706 

7604 044712 

7605 044714 
044714 
044716 
044720 
0U722 

7606 044724 
044724 

7607 
7608 
7609 



1EST 5. SUBTEST 6 

VERIFIES THAT READ DATA COfWANDS WITH CVC«1 AND THE 
SWAP BYTES (SWB) BIT SET OPERATES PROPERLY. THE TEST 
SEQUENCE IS IDENTICAL TO THAT USED IN SUBTEST 2. 
THE RESULTS. EXCEPT FOR RAN CONTENTS, SHOULD BE THE SANE. 



104402 
004737 
004737 
004737 



052664 
052530 
052622 



B6NSUB 



JSR 
JSR 
JSR 



PC.T24RT3 

PC.T24REST 

PC,T24RT2 



;»»»»»» BEGIN SUBTEST »»»»»» 
T5.6: 

TRAP CSBSUB 
:SET UP OTHER COWUND PACKET 
;SET COMMAND PACKET 
.-SET UP OTHER COMMAND PACKET 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



016630 
020064 



004737 
103407 
004737 
010001 

104455 
001036 
003550 
01 1656 



012704 050040 



JSR 
BCS 
JSR 
MOV 
ERRDF 



PCSOFINIT 
20S 

PCFATCHK 
R0,R1 

ERRN0.SFIERR.SFIMS6 



20S: 



NOV 



fT24PACKET.R4 



DO INITIALIZE ON CONTROLLER 
BK IF INIT WAS OK 

INC AND CHECK FOR MORE THAN 25 ERRORS 

CONTENTS OF TSSR REGISTER 

FATAL ERROR TSSR WAS NOT OK 

TRAP CSERDF 
.WORD 542 
.WORD SFIERR 
.WORD SFIMSG 

.•SUBROUTINE NEEDS PACKET ADDRESS 



.•WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 



004737 
103407 
004737 
010001 

104456 
001037 
004754 
011656 

104406 



010322 
020064 



24$: 



JSR 
BCS 
JSR 
MOV 
ERRNRO 



CKLOOP 



PC .WRTCHR 
24S 

PC.FATCHK 
R0.R1 

ERRN0.WRTMS6.SFIMS6 



.-ISSUE WRITE CHARACTERISTICS 

;BR. IF COMMAND ISSUED OK 

;INC AND CHECK FOR MORE THAN 25 ERRORS 

.•SAVE CONTENTS OF TSSR 

;WRITE CHARACTERISTIC FAILED 

TRAP CtERHRD 
.WORD 543 
.WORD WRTMSG 
.WORD SFIMSG 

.•LOOP IF SELECTED 

TRAP CSCLPI 
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SEQ 189 



7610 
7611 
7612 
7613 

76U 044726 

7615 044732 

7616 044734 

7617 044736 

7621 044742 
044742 
044744 
044746 
044750 

7622 044752 
044752 

7623 044754 

7624 044760 
7625 

7626 
7627 
7628 
7629 
7630 
7631 

7632 044766 

7633 044774 

7634 045000 

7635 045000 

7636 045002 

7637 045006 

7638 045012 

7639 045016 

7640 045022 

7641 045026 

7642 045032 

7643 045034 

7644 045036 
7648 

7649 

7650 045042 
045042 
045044 
045046 
045050 

7651 045052 
045052 

7652 045054 

7653 045056 

7654 045062 

7655 045064 
045064 

7656 045066 

7657 045070 
7658 

7659 
7660 
7661 



004757 
103407 
010001 
004737 

104456 
001040 
051326 
011670 

104406 
012703 
013737 



012737 
012704 

010300 
004737 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
004737 



104457 
001041 
005011 
011670 

104406 
005723 
022703 
001346 

104406 
005743 
013737 



ISSUE REUIND GOHMAND TO SELECTED TAPE DRIVE 



010424 
020064 



JSR 
BCS 
NOV 

JSR 

ERRHRD 



30$: CKLOOP 



PC.KtUlNO 
30$ 
RO.RI 
PC.FATCHK 

ERRN0J24RWN.PKTSSR 



.•CALL TAPE REWIND COMPIAND 
;BR. IF NO PROBLEM 
•SAVE TSSR 

liNC AND CHECK FOR MORE THAN 25 ERRORS 
.•REWIND NOT ACCEPTED 



;L00P IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRt 
544 

T24RWN 
PKTSSR 



000400 

003072 050172 



NOV 
NOV 



#256 wR3 
FREE.T24RB 



.RECORD SIZE 
.•STARTING WRITE BUFFER ADDRESS 



TRAP C$CLP1 



.'WRITE 0ATA.ACK.CVC*1.SWB CONNAND 



150005 050170 
050170 



020356 
050176 
177776 
017104 
000000 
000200 



020064 



000414 



003072 050172 





NOV 


#1 50005. T24PK3 


.•WRITE DATA.ACK.CVCsl.SWB COMMAND 


65$: 


NOV 


fT24PK3.R4 


.-SET UP R4 WITH PACKET ADDRESS 












NOV 


R3.R0 


;SET PATTERN IN CORRECT REGISTER 




JSR 


PC.FILLNEN 


.'FILL MEMORY WITH RECORD SIZE 






NOV 


R3.T24S2 
Si4.TS0B(R5> 


.-SET UP RECORD SIZE IN PACKET 






NOV 


.ISSUE COMMAND 






JSR 


PC.WAITF 


.WAIT FOR SSR TO SET 






NOV 


TSSR(R5).R1 


:GET TSSR CONTENTS 






NOV 


ffSSR.R2 
R1.R2 


;SET UP EXPECTED 






CNP 


.•ARE THEY EQUAL 






BEQ 


75$ 


:BR. IF OK 






JSR 


PC.FATCHK 


;INC AND CHECK FOR MORE THAN 25 ERRORS 
.•SOFT ERROR. REALLY CHECKING THE 








.•READ DATA COMMAND 






ERRSOFT 


ERRNO.WRTERR.PKTSSR 


:TSSR INCORRECT AFTER WRITE DATA 








TRAP 


CSERSOF 








.WORD 


545 








.WORD 


WRTERR 


75$: 






.WORD 


PKTSSR 


CKLOOP 




.•LOOP IF SELECTED 








(R3)* 


TRAP 


C$CLP1 




TST 


.-BUMP RECORD SIZE 






CNP 


#268.. R3 


;END OF RECORD YET 




80$: 


BNE 


65$ 


;BR. IF NORE RECORDS TO WRITE 




CKLOOP 




.•LOOP IF SELECTED 

TRAP 


C$CLP1 




TST 


-(R3) 


:SET RECORD SIZE BACK TO 512. 






NOV 


FREE.T24RB 


; STARTING READ BUFFER ADDRESS 





.READ REVERSE DATA.ACK.SWB CONNAND 



I 15 
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7662 










7663 










7664 










7665 


045076 


012737 


4 4 A/ A4 

110401 


nff A4 9A 

050170 


7666 


045104 


012704 


0501 70 




7667 


045110 


A4 

010337 


050176 




7668 


045114 


A4 

010465 


1 77776 




7669 


045120 


004737 


A4 74 Al 

017104 




7670 


C4 91. 

045124 


A4 ACAf 

016501 


AAAAAA 

000000 




7671 


045130 


012702 


AAA9AA 

000200 




7672 


Al C4 VI. 

045134 


A^AI A9 

020102 






7673 


045136 


001406 






Ttf't 


Al C4 1.A 

045140 


004f 5f 


020064 




76/8 


Al C 4 1. 1. 

045144 










AZCi 1.1. 

04>146 


104496 








001042 








045130 


0916^0 










A1 AWA 

016990 






fofy 


A/.C1 CI 

n/.ci ci 
0451 


1 Al.l,AiL 

1044UO 






rOOO 


A1.K1 K£. 

04>1>0 


019rU2 


AAYA73 




rMI 




A1 ATA^ 






7682 


0i5164 


162704 


000400 




7683 


045170 


060204 






7684 

7685 


045172 


021403 






045174 


001410 






rOoO 


W431 rO 


A1 I^AI 






7687 


045200 


010302 






rOOO 


U49cUC 


W>4f 9r 


UcUv04 




rOTC 


AACVWl 
U*5cvO 

AA01A 

049ClC 
049Cl4 


1W4*90 
AA1 AAX 

AC1 11 A 

U9I 1 lU 

A1 AVVl 
U1099U 








049C1O 
0*9clO 


1U44U0 






7694 


045220 


005724 






Mac 




1AA9A1. 

100204 






7696 


045224 


020403 






7697 


045226 


001360 










009 r 49 






MOO 

row 


0%9c3c 




AAAAAA 
UUV4UU 




7fW 


Al.C9tA 
049290 


AA1 

001922 






f fw 1 


049240 

AAS9A0 
*^9C*V 


1AA4M 






7702 


045242 
045242 
045242 


104403 






7703 


045244 


023727 


002170 


000031 


7704 


045252 


002402 






7705 


045254 


004737 


020136 




7706 


04S260 









NOV 

165$: NOV 
NOV 
NOV 
JSR 
NOV 
NOV 
CNP 
BED 
JSR 

ERRHRD 



170S: CKLOOP 

NOV 
NOV 
SUB 

1738: ADD 
CNP 
BEQ 
NOV 
NOV 
JSR 

ERRHRD 



180S: CKLOOP 

TST 
SUB 
CNP 



1908: 



999$: 



TST 
CNP 
BNE 

CKLOOP 
ENDSUB 



CNP 
BLT 
JSR 



ffn0401.T24PK3 

ffT24PK3.R4 

R3,T24SZ 

R4.TSDB(R5) 

PC.WAITf 

TSSR(R5).R1 

fSSR.R2 

R1.R2 

170$ 

PCFATCHK 

ERRN0.T24yDC.EXPREC 



FREE.R2 

R3,R4 

f256..R4 

R2.R4 

(R4).R3 

180$ 

(R4).R1 

R3.R2 

PC.FATCHK 

ERRN0,T24DTA,EXPREC 



(R4>* 

R2.R4 

R4.R3 

173$ 

-(R3) 

f256..R3 

165$ 



FATFLG.fZS. 
999$ 

PC.CKDROP 



.-READ REVERSE DATA.ACK.SUB CONNANO 
:SET UP R4 WITN PACKET ADDRESS 
:SET UP RECORD SIZE IN PACKET 
: ISSUE CONNAND 
;UAIT FOR SSR TO SET 
;6ET TSSR CONTENTS 
;SET UP EXPECTED 
;ARE THEY EQUAL 
'BR IF OK 

:INC AND CHECK FOR NORE THAN 25 ERRORS 
:TSSR INCORRECT AFTER READ DATA 

TRAP 



;L00P IF SELECTED 



.WORD 
.WORD 
.WORD 



CSERHRD 
546 
T24WDC 
EXPREC 



TRAP C$CLP1 



;6ET BUFFER ADDRESS 
.•CURRENT RECORD SIZE 
.-FIRST LOCATION IN BUFFER 
;SET POINTER TO FRANE (WORD) 
.•CHECK DATA READ (R3*DATA ALSO) 
;BR. IF ALL IS WELL 
;RfcCD DATA 
;EXPECTED DATA 

;INC AND CHECK FOR NORE THAN 25 ERRORS 
;DATA READ NOT = WRITTEN 

TRAP CSERHRD 
.WORD 547 
.WORD T24DTA 
.WORD EXPREC 

;LOOP IF SELECTED 

TRAP C$CLP1 

;BUNP TO NEXT LOCATION 

;6ET RID OF BASE ADDRESS 

;END OF RECORD VET 

;BR. IF NOT AT END OF RECORD 

;BUHP RECORD SIZE 

;END OF RECORD YET 

;BR. IF NORE RECORDS TO WR*^E 

:LOOP IF SELECTED 

TRAP CSCLPI 
;»»»»»» END SUBTEST »»»»»» 
L10064: 

TRAP C$ESUB 
:IS ERROR COUNT AT 25 
:BR. IF LESS THAN 25 
;TRV TO DROP THE UNIT 
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TEST 5: BASK READ DATA (FORUARO AND REVERSE) 



J IS 
?A6E 107 



SEQ 191 



7708 
7709 
7710 
7711 
7712 
7713 
7714 
7715 
7716 
7717 
7718 
7719 

7720 045260 
045260 
045260 

7721 045262 

7722 045266 

7723 045272 
7724 

7725 
7726 
7727 
7728 
7729 
7730 

7731 045276 

7732 045302 

7733 045304 

7737 045310 

7738 045312 
045312 
045314 
045316 
045320 

7739 045322 

7740 045322 
7741 

7742 
7743 
7744 
7745 
7746 
7747 

7748 045326 

7749 045332 

7750 045334 

7754 045340 

7755 045342 
045342 
045344 
045346 
045350 

7756 045352 
0455S2 

7757 
7758 
7759 



TEST 5. SUBTEST 7 

VERIFIES THAT A REaO REVERSE COMMAND READING A RECORD 
LONGER THAN THE SPECIFIED BYTE COUNT CAUSES TAPE 
STATUS ALERT TERMINATION WITH THE RECORD LENGTH LONG 
(RLL) BIT SET. 



104402 
004737 
004737 
004737 



052664 
052530 
052622 



86NSUB 



JSR 
JSR 
JSR 



PC,T24RT3 

PC.T24REST 

PC.T24RT2 



:»»»»»» BEGIN SUBTEST 
T5.7: 

TRAP 

;SET UP OTHER COMMAND PACKET 

;SET COMMAND PACKET 

:SET UP OTHER COMMAND PACKET 



»»»»»» 



CS8SUB 



.•ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



016630 
020064 



004737 
103407 
004737 
010001 

104455 
001044 
003550 
011656 



012704 050040 



JSR 
8CS 
JSR 
MOV 
ERRDF 



PC.SOFINIT 
20t 

PC.FATCHK 
R0.R1 

ERRNO.SFIERft.SFINSG 



20S: 



NOV 



fT24PACKET,R4 



;D0 INITIALIZE ON CONTROLLER 
*BK IF INIT WAS OK 

:INC AND CHECK FOR MORE THAN 25 ERRORS 

.•CONTENTS OF TSSR REGISTER 

; FATAL ERROR TSSR UAS NOT OK 

TRAP CSEROF 
.WORD 548 
.UORD SFIERR 
.WORD SFIMSG 

; SUBROUTINE NEEDS PACKET ADDRESS 



;UII1TE CHARACTERISTICS COMMAND (CALL TO URTCHR) 



004737 
103407 
004737 
010001 

104456 
001045 
004754 
011656 

104406 



010322 
020064 



24S: 



JSR 
BCS 
JSR 
NOV 
ERRHRD 



CKLOOP 



PC .URTCHR 
248 

PC.FATCHK 
R0.R1 

ERRN0.URTMS6.SFIMS6 



.•ISSUE WRITE CHARACTERISTICS 
:BR. IF COMMAND ISSUED OK 
;INC AND CHECK FOR MORE THAN 25 ERRORS 
.•SAVE CONTENTS OF TSSR 
:URITE CHARACTERISTISC FAILED 



:LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



CSERHRD 
549 

WRTMSG 
SFIMSG 



TRAP CtCLPI 
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TEST S: BASIC READ DATA (FORWARD AND REVERSE) 
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SEQ 192 



7760 
7761 
7762 
7763 

7764 04S3SA 

7765 045360 

7766 045364 

7767 045366 
7766 045370 

7772 045374 
045374 
045376 
045400 
045402 

7773 045404 
045404 

7774 045406 

7775 045412 
7776 

7777 

7779 
7780 
7781 
7782 

7783 045420 

7784 045426 

7785 045432 

7786 045432 

7787 045436 

7788 045442 

7789 045446 

7790 045452 

7791 045456 

7792 04S460 

7793 045462 
7797 

7798 

7799 045466 
04S466 
045470 
045472 
045474 

7800 045476 
045476 
045500 

7802 045504 
7803 
7804 
7805 
7806 
7807 
7808 
7809 

7810 045512 

7811 045520 

7812 045524 



7801 



004737 
004737 
103407 
010001 
004737 

104456 
001046 
051326 
011670 

104406 
012703 
013737 



012737 
012704 

010337 
010465 
004737 
016501 
012702 
020102 
001406 
004737 



104457 
001047 
005011 
011670 

104406 
012703 
013737 



012737 
012704 
010337 



ISSUE REWIND COMAND TO SELECTED TAPE DRIVE 



010424 
017220 



020064 



30S: 



JSR 
JSR 
BCS 
NOV 
JSR 

ERRHRD 



CKLOOP 



PCkcUIND 

PC.CHKTSSR 

30$ 

R0,R1 

PC.FATCHK 

ERRN0.T24RUN.PKTSSR 



001000 

003072 050172 



NOV 
NOV 



#512., R3 
FREE.T24RB 



.•CALL TAPE REWIND CONNAND 
.-SEE HOW TSSR IS 
:BR. IF NO PROBLEN 
:SAVE TSSR 

:INC AND CHECK FOR NORE THAN 25 ERRORS 
.•REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 

:LOOP IF SELECTED 

TRAP 

;RECORD SIZE 

.'STARTING WRITE BUFFER ADDRESS 



CtERHRD 
550 

T24RWN 
PKTSSR 

CSCLP1 



WRITE DATA.ACK.CVC«1 COMMAND 



140005 050170 
050170 

050176 
177776 
017104 
000000 
000200 



020064 



65S: 



NOV #140005. T24PK3 

NOV #T24PK3.R4 

NOV R3.T24SZ 

NOV R4.TSDB(R5) 

JSR PC.WAITF 

MOV TSSR(R5).R1 

MOV »SSR.R2 

CMP R1.R2 

BEQ 75$ 

JSR PC.FATCHK 



ERRSOFT ERRNO.WRTERR. PKTSSR 



75$: 



000400 

003072 050172 



CKLOOP 

MOV 
NOV 



#256. .R3 
FIIEE.T24RB 



;WRITE DATA.ACK.CVCsl COMMAND 
:SfcT UP R4 WITH PACKET ADDRESS 

.•SET UP RECORD SIZE IN PACKET 

.•ISSUE COMMAND 

.•WAIT FOR SSR TO SET 

.GET TSSR CONTENTS 

;SET UP EXPECTED 

.-ARE THEY EQUAL 

'BR IF OK 

;INC AND CHECK FOR NORE THAN 25 ERRORS 

.•SOFT ERROR. REALLY CHECKING THE 

.-READ DATA COMMAND 

;TSSR INCORRECT AFTER WRITE DATA 

TRAP C$ERSOFT 
.WORD 551 
.WORD WRTERR 
.WORD PKTSSR 

:LOOP IF SELECTED 

TRAP C$CLP1 

;SIZE OF RECORD 

.•STARTING READ BUFFER ADDRESS 



.-READ DATA.ACK COMMAND 



100401 050170 

050170 

050176 



MOV 

165$: MOV 
MOV 



#100401 .T24PK3 

#T24PK3.R4 

« T24SZ 



.•READ DATA.ACK COMMAND 
.-SET UP 114 WITH PACKET ADDRESS 
UP UttOM IN PACltn 
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TEST S: BASIC READ DATA (FORWARD AND REVERSE) 
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SEQ 193 



7813 04SS30 
78U 04SS34 

781 5 045S40 

7816 04SS44 

7817 04S550 

7818 04S5S2 

7819 04S5M 

7823 04S560 
045S60 
045562 
045564 
045566 

7824 045570 
045570 

7825 
7826 
7827 
7826 
7629 
7630 
7831 

7832 045S72 

7833 045576 

7834 045600 

7835 045604 

7836 045606 

7837 04S610 

7841 045614 
045614 
045616 
045620 
045622 

7842 045624 

7843 045624 
045624 
045624 

7844 045626 

7845 045634 

7846 045636 

7847 045642 
7846 



010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
001050 
052374 
016330 

104406 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
001051 
052142 
016330 



104403 
023727 
002402 
004737 



177776 
017104 
OOCOOO 
100204 



020064 



NOV 
JSR 
HOV 
HOV 
CNP 
BEO 
JSR 

ERRHRD 



1708: CKLOOP 



R4JSDB(R5> 

PC.UAITF 

TSSR(R5},R1 

«SSR!SC!B1T2,R2 

R1.M2 

1708 

PC.FATCHK 

ERRN0.T24TRL.EXPREC 



.'ISSUE COMMAND 
.•WAIT FOR SSft TO SET 
;GET TSSR CONTENTS 
;SET UP EXPECTED 
:ARE THEY EQUAL 
:BR. IF OK 

:INC AND CHECK FOR MORE THAN 25 ERRORS 
;TSSR INCORRECT AFTER READ DATA 

TRAP 
.WORD 
.WORD 
.WORD 

.-LOOP IF SELECTED 

TRAP 



CtERHRD 
552 

T24TRL 
EXPREC 



CSCLP1 



READ MESSAGE BU'FER EXTENDED STATUS REGISTER ZERO (XSTO) 



050066 
010000 

020064 



MOV 
MOV 
BIS 
CMP 
BEQ 
JSR 
ERRHRD 



T24BrR^6,Rl 

R1.R2 

fBIT1>.R2 

R1.R2 

180$ 

PC.FATCHK 

ERRN0,T24L0N.EXPREC 



180S: 



002170 000031 
020136 



999S: 



ENDSUB 



CMP 
BLT 
JSR 



FATFLG,f2S. 
999$ 

PCCKDROP 



:6ET MESSAGE BUFFER (XSTO) 

;SET UP EXPECTED 

;SET THE RLL BIT IN EXPECTED 

;ARE THEY EQUAL 

;8R. IF EQUAL (ALL IS WELL) 

:INC AND CHECK FOR MORE THAN 25 ERRORS 

:THE RLL BIT WAS NOT SET IN XSTO 

TRAP CSERHRD 
.WORD 553 
.WORD T24L0N 
.WORD EXPREC 

;»»»»»» END SUBTEST »»»»»» 
Li 0065: 

TRAP CtESUB 
;IS ERROR COUNT AT 25 
;BR. IF LESS THAN 25 
;TRY TO DROP THE UNIT 
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TEST 5: BASIC READ DATA (FORWARD AND REVERSE) 
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SEQ 194 



78S0 
7851 
78S2 
7851 
785^ 
7855 
7856 
7857 
7858 
7859 
7860 

7861 045642 
045642 
045642 

7862 045644 

7863 04S6S2 

7864 045656 

7865 045660 

7866 045664 

7867 045670 

7868 045674 
7869 

7870 
7871 
7872 
7873 
7874 
7875 

7876 045700 

7877 04S704 

7878 04S706 

7882 045712 

7883 045714 
045714 
045716 
045720 
04S722 

7884 04S724 

7885 04S724 
7886 

7887 
7888 
7889 
7890 
7891 
7892 

7893 045730 

7894 045734 

7895 045756 
7899 045742 
/900 045744 

045744 
045746 
045750 
045752 
7901 045754 
045754 



TEST S. SUBTEST 8 

VERIFIES THAT A PF.AD REVERSE CONNAND SPECIFYING A DATA 
BUFFER STARTING IN NONEXISTANT NENORY TERMINATES VITH 
THE PROPER ERROR STATUS WITHOUT MOVING TAPE 



104402 
012737 
00S737 
001402 
000137 
004737 
004737 
004737 



000000 
003100 

046300 
052664 
052530 
052622 



050216 



9$: 
10$: 



BGNSUB 



NOV 
TST 
BEQ 
JNP 
JSR 
JSR 
JSR 



fO.T24DLY 
KTFL6 
10$ 
180$ 

PC.T24RT3 

PC.T24REST 

PC.T24RT2 



:»»»»»» BEGIN SUBTEST »»»»»» 
T5.8: 

TRAP C$BSUB 

.ADDRESS BITS FOR LATER 
; CHECK FOR KT11 
:BR. IF NO KT11 
:JUNP IF KT11 

;SET UP OTHER CONNAND PACKET 

:SET CONNAND PACKET 

:SET UP OTHER CONNAND PACKET 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



016630 
020064 



004737 
103407 
004737 
010001 

104455 
001052 
003550 
0116S6 



012704 0S0040 



JSR 
BCS 
JSR 
NOV 
ERRDF 



PC.SOFINIT 
20$ 

PC.FATCNK 
R0.R1 

ERRNO.SFIERR.SFINSG 



20$: 



NOV 



#T24PACKET,R4 



:D0 INITIALIZE ON CONTROLLER 
:BR IF INIT WAS OK 

;INC AND CHECK FOR NORE THAN 25 ERRORS 

.•CONTENTS OF TSSR REGISTER 

; FATAL ERROR TSSR WAS NOT OK 

TRAP CSERDF 
.WORD 554 
.WORD SFIERR 
.WORD SFINSG 

;SUBROUTINE NEEDS PACKET ADDRESS 



:WRITE CHARACTERISTICS CONNAND (CALL TO WRTCHR) 



004737 
103407 
004737 
010001 

10US6 
001053 
004754 
011656 

104406 



010322 
020064 



24$: 



JSR 
BCS 
JSR 
NOV 
ERRHRD 



CKLOOP 



PC. WRTCHR 
24$ 

PC.FATCHK 
R0.R1 

ERRN0.WRTNS6.SFINS6 



; ISSUE WRITE CHARACTERISTICS 

;BR. IF CONNAND ISSUED OK 

:INC AND CHECK FOFi NORE THAN 25 ERRORS 

;SAVE CONTENTS OF TSSR 

:WRITE CHARACTERISTISC FAILED 

TRAP CSERHRD 
.WORD 555 
.WORD WRTNSG 
.WORD SFINSG 

;LOOP IF SELECTED 

MAE. tlOEl 
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TEST S: BASIC READ DATA (FORUARD AND REVERSE) 
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SEO 195 



7902 
7903 
7904 
7905 
7906 
7907 
7908 

7909 045756 

7910 045762 

7911 045766 

7912 045770 
7915 045772 

7917 045776 
045776 
046000 
046002 
046004 

7918 046006 
046006 

7919 046010 

7920 046014 
7921 

7922 
7923 
7924 
7925 
7926 
7927 

7928 046022 

7929 046030 

7930 046034 

7931 046034 

7932 046040 

7933 046044 

7934 046050 

7935 046054 

7936 046060 

7937 046062 

7938 046064 

7942 046070 
046070 
046072 
046074 
046076 

7943 046100 
046100 

7944 046102 

7945 046106 

7946 046112 

7947 046116 

7948 046122 

7949 046134 

7950 046130 
7951 

79S2 
7953 
7954 



: ISSUE REWIND C0N!>AND TO SELECTED TAPE DRIVE 



004737 


010424 




JSR 


PC, REWIND 


;CALL TAPE REWIND CONNAND 




004737 


017220 




JSR 


PC.CHKTSSR 


:SEE HOW TSSR IS 




103407 






BCS 


30S 


:BR. IF NO PROBLEM 




010001 






NOV 


R0.R1 


.-SAVE TSSR 




004737 


020064 




JSR 


PC.FATCHK 


;INC AND CHECK FOR NCRE THAN 25 


ERRORS 








ERRHRD 


ERRN0,T24RWN,PKTSSR 


.REWIND NOT ACCEPTED 




104456 










TRAP 


CSERHRO 


UUIU>4> 










.WURD 




051326 










.WORD 


T24RWN 


011670 










.WORD 


PKTSSR 






30$: 


CKLOOP 




.'LOOP IF SELECTED 




104406 










TRAP 


CSCLP1 


012703 


000400 




NOV 


»256.,R3 


.'RECORD SIZE 




013737 


003072 050172 




NOV 


FREE,T24RB 


.•STARTING WRITE BUFFER ADDRESS 








* 

•WRITE DATA.ACK,CVC-1 COHHAND 

• 
• 







012737 
012704 

010337 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104457 
001055 
005011 
011670 

104406 
012703 
012701 
012702 
004737 
103402 
000137 
010137 



140005 050170 
050170 

050176 
177776 
017104 
000000 
000200 



020064 



65$: 



NOV 


f1 40005. T24PK3 


:WRITE DATA.ACK.CVCsl COMMAND 


NOV 


»T24PK3.R4 


.-SET UP R4 WITH PACKET ADDRESS 


NOV 


R3.T24SZ 


;SET UP RECORD SIZE IN PACKET 


NOV 


R4.TSDB(R5) 


.•ISSUE COMMAND 


JSR 


PC.WAITF 


.•WAIT FOR SSR TO SET 


NOV 


TSSR(R5).R1 


;GET TSSR CONTENTS 


NOV 


#SSR.R2 


;SET UP EXPECTED 


CMP 


RUR2 


;ARE THEY EQUAL 


BEQ 


75$ 


•BR IF OK 


JSR 


PC.FATCHK 


•INC AND CHECK FOR MORE THAN 2S ERRORS 


ERRSOFT 


ERRNO.WRTERR.PKTSSR 


.-TSSR INCORRECT AFTER WRITE DATA 



75$: 



000400 
160000 
177776 
017260 

046300 
050172 



76$: 



CKLOOP 

MOV 
NOV 
MOV 
JSR 
BCS 
JMP 
NOV 



f2S6..R3 

f160000.R1 

f177776«R2 

PC.XNXR 

76$ 

180$ 

II1.T24RB 



TRAP CSERSOFT 
.WORD 557 
.WORD WRTERR 
.WORD PKTSSR 

.•LOOP IF SELECTED 

TRAP C$CLP1 

;RECORD SIZE 

; START POSSIBLE NXN ADDRESS 

;END POSSIBLE NXM ADDRESS 

.-CALL NXM FINDER ROUTINE 

:BR IF NXM ADDRESS FOUND 

;JMP OVER CAN'T FIND NXM 

; STARTING READ REVERSE BUFFER ADDRESS 



.•READ REVERSE UkJkM COWWAMB 
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TEST S: BASIC READ DATA (FORWARD AND REVERSE) 
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SCO 196 



7955 
7956 
7957 

7958 046134 

7959 046U2 

7960 046150 

7961 046154 

7962 046162 

7963 046166 

7964 046172 

7965 046176 

7966 046202 

7967 046204 

7968 046206 

7969 046214 

7970 046222 

7971 046224 

7972 046230 

7976 046234 
046234 
046236 
046240 
046242 

7977 046244 
046244 

7978 
7979 
7980 
7981 
7982 
7983 
7984 

7985 046246 

7986 046252 

7987 046254 

7988 046260 

7989 046262 

7990 046264 

7994 046270 
046270 
046272 
046274 
046276 

7995 046300 

7996 046300 
046300 
046300 

7997 046302 

7998 046310 

7999 046312 

8000 046316 



013737 
012737 
012704 
012737 
010465 
004737 
016501 
012702 
020102 
001417 
062737 
022737 
001402 
000137 
004737 

104456 
001056 
050431 
011670 

104406 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
001057 
052224 
016330 



104403 
023727 
002402 
004737 



050216 
100401 
050170 
000400 
177776 
017104 
000000 
104210 



000001 
000004 

045664 
02C064 



050066 
040000 

020064 



002170 
020136 



050174 
050170 

050176 



165$: 



050216 
050216 



168$: 



■nw 




• VCI DllS 10 mlW If 


MOV 




fllCnil RCVCRaC VAIA*Mi.K lUmMW 


NOW 








f256..T24SZ 




NOV 


QL TSM(R5) 








•UAtT FOB CCB Tf) CET 
run 99n lU AC 1 


NOV 


TSSR(R5) R1 


•GFT TSSR FONTFNTS 


NOV 


fSSR!NXN!$C!BlT3,R2 


:SET UP EXPECTED 


CNP 


R1,R2 


;ARE THEY EQUAL 


BEO 


170$ 


;BR, IF OK 


ADD 


#1.T24DLY 


.'NEXT BUNCH OF NENORY 


CNP 


J'4,T24DLY 
168$ 


:TOD NUCH NENORY 


BEQ 


;BR If OVER 


JNP 


10$ 


:TRV AGAIN 


JSR 


PC.FATCHK 


:INC AND CHECK FOR NORE THAN 25 ERRORS 


ERRHRD 


ERRN0.T24NXfl,PKTSSR 


;TSSR INCORRECT AFTER READ DATA 



170$: CKLOOP 



;LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
558 
T24NXN 
PKTSSR 



TRAP C$ILP1 



;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

■ 



NOV 
NOV 
BIS 
CNP 
BEQ 
JSR 

ERRHRD 



T24BFR*6.R1 

R1,R2 

fBIT14,R2 

R1,R2 

160$ 

PCFATCHK 

ERRN0.T24L0P,EXPREC 



180$: 



000031 



999$: 



ENDSU6 



CNP 
BLT 
JSR 



FATFLG.f25. 
999$ 

PC.CKOROP 



:6ET NESSA6E BUFFER 

.'SET UP EXPECTED 

:SET THE RLS BIT IN EXPECTED 

;ARE THEY EQUAL 

:BR, IF EQUAL (ALL IS WELL) 

;INC AND CHECK FOR NORE THAN 25 ERRORS 

.'THE RLL BIT WAS NOT SET IN XSTO 

TRAP CSERHRD 
.WORD 559 
.WORD T24L0P 
.WORD EXPREC 

;»»»»»» END SUBTEST »»»»»» 
LI 0066: 

TRAP C$ESUB 
.-IS ERROR COUNT AT 25 
;BR, IF LESS THAN 25 
;TRY TO DROP THE UNIT 
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SEO 197 



8002 
8003 
8004 
BOOS 
8006 
8007 
8008 
8009 
8010 
8011 
8012 
8013 

80U 046316 
046316 
046316 

8015 046320 

8016 046324 

8017 046330 
8C18 

8019 
8020 
8021 
8022 
8023 
8024 

8025 046334 

8026 046340 

8027 046342 

8031 046346 

8032 046350 
046350 
046352 
046354 
046356 

8033 046360 

8034 046360 
8035 

8036 
8037 
8038 
8039 
8040 
8041 

8042 046364 

8043 046370 

8044 046372 

8048 046376 

8049 046400 
046400 
046402 
046404 
046406 

8050 046410 
046410 

8051 046412 

8052 046420 
8053 



TEST 5. SUBTEST 9 

VERIFIES THAT iLLEoAL BUFFER ADDRESSES CAUSE A 
FUNCTION REJECT TERMiNATION UITH ILLEGAL ADDRESS 
(ILA> ERROR BIT SET. 



104402 
004737 
004737 
004737 



052664 
052530 
052622 



BGNSUB 



JSR PC.T24RT3 
JSR PC,T24REST 
JSR PC.T24RT2 



;»»»»»» BEGIN SUBTEST »»»»»» 
T5.9: 

TRAP CSBSUB 
;SET COMMAND PACKET UP CLEAR 
;SET COMMAND PACKET 
:SET UP OTHER COMMAND PACKET 



.-ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



016630 
020064 



004737 
103407 
004737 
010001 

104455 
001060 
003550 
011656 



012704 050040 





JSR 


PC.SOFINIT 


;D0 INITIALIZE ON CONTROLLER 




BCS 


20$ 


:Bk IF INIT WAS OK 




JSR 


PC.FATCHK 


;INC AND CHECK FOR MORE THAN 25 ERRORS 




MOV 


RO.RI 


; CONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO.SFIERR.SFIMSG 


; FATAL ERROR TSSR UAS NOT OK 






TRAP CSERDF 
.UORD 560 
.UORD SFIERR 
.UORD SFIHSG 


20$: 










MOV 


fT24PACKET.R4 


.'SUBROUTINE NEEDS PACKET ADDRESS 



:URITE CHARAITERISTICS COMMAND (CALL TO URTCHR) 



004737 
103407 
004737 
010001 

104456 
001061 
004754 
011656 

104406 
013737 
012757 



010322 
020064 



24$: 



JSR 
BCS 
JSR 
MOV 
E'-RHRD 



CKLOOP 



PC.WRTCHR 
24$ 

PC.FATCHK 
R0.R1 

ERRNO.URTNSG.SFIMSG 



003072 
177700 



050172 
050174 



MOV 
MOV 



FREE.T24RB 
f177700.T24RB«? 



.•ISSUE URITE CHARACTERISTICS 

:BR. IF COMMAND ISSUEC OK 

;INC AND CHECK FOR MORE THAN 21) ERRORS 

.-SAVE CONTENTS OF TSSR 

•URITE CHARACTERISTIC FAILED 

TRAP 
.UORD 
.UORD 
.UORD 

;LOOP IF SELECTED 

TRAP 

.'ILLEGAL STARTING READ BUFFER ADDRESS 
.•CREATE ILLEGAL ADDRESS 



CSERHRD 
561 

URTHSG 
SFIMS6 

CSCLPt 
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SEO 198 



60SA 
8055 
8056 
8057 
8058 
8059 

8060 046426 

8061 046434 

8062 046440 

8063 046446 

8064 0464S2 

8065 046456 

8066 046462 

8067 046466 

8068 046470 

8069 046472 
8075 046476 

046476 
046500 
046502 
046S04 
8074 046506 
046506 

8075 
8076 
8077 
8078 
8079 
8080 
8081 

8062 046510 

8083 046514 

8084 046516 

8085 046522 

8086 046524 

8087 046526 

8091 046532 
046532 
046534 
046536 
046540 

8092 046542 

8093 046542 
046542 
046542 

8094 046544 

8095 046552 

8096 046554 

8097 046560 



012737 
012704 
012737 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
001062 
050342 
011670 

104406 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
001063 
050572 
016330 



104403 
023727 
002402 
004737 



;LE6AL NODE ,ACK,CVCs1 .READ COIWAND 



140001 050170 
050170 

000400 050176 

177776 

017104 

300000 

100206 



020064 



75$: 



mv 

MOV 

mv 

NOV 
JSR 
NOV 
NOV 
CNP 
BEQ 
JSR 

ERRHRD 



CKLOOP 



#140001 ,T24Pk3 

fT24PK3.R4 

ff256..T24SZ 

R4JS0B(R5) 

PCVAITF 

TSSR(RS),R1 

#SSR!SC!BIT1!BJT2.R2 

R1,R2 

75$ 

PC.FATCHK 

ERRN0,T24UDGTiCTSSR 



LEGAL NODE, ACK,CVC«1 .READ CONHAND 
SET UP R4 UITH PACKET ADDRESS 
SET UP RECORD SIZE IN PACKET 
ISSUE CONNAND 

WAIT FOR SSRiBITI IBIT2 TO SET 
GET TSSR CONTENTS 
SET UP EXPECTED 
ARE THEY EQUAL 
BR. IF OK 

INC AND CHECK FOR NORE THAN 25 ERRORS 
TSSR INCORRECT AFTER READ DATA 

TRAP 
.WORD 
.WORD 
.WORD 

.-LOOP IF SELECTED 

TRAP 



C$ERHRD 
562 

T24WDG 
PKTSSR 



C$CLP1 



••READ MESSAGE BUFFER EXTENDED STATUS REGIS'iER ZERO (XSTO) 

^^••■•^■•■•o^<iM«»«»«<a« WW««H««» www WWn WW WWW WWW W WWW wwwwwwwwi 



0S0066 
000400 

020064 



NOV 
NOV 
BIS 
CNP 
BEQ 
JSR 

ERRHRD 



T24BFR^6.R1 

R1.R2 

#BIT6,R2 

R1.R2 

180$ 

PC.FATCHK 

ERRN0.T24ILA.EXPREC 



180$: 



002170 000031 
020136 



999$: 



ENDSUB 



CNP 
BLT 
JSR 



FATFLG.f25. 
999$ 

PC.CKDROP 



:6ET NESSAGE BUFFER 

.SET UP EXPECTED 

.-SET THE ILA BIT IN EXPECTED 

.•ARE THEY EQUAL 

;BR. IF EQUAL (ALL IS WELL) 

;INC AND CHECK FOR NORE THAN 25 ERRORS 

:THE ILA BIT WAS NOT SET IN XSTO 

TRAP C$ERHRD 
.WORD 563 
.WORD T24ILA 
.WORD EXPREC 

;»»»»»» END SUBTEST »»»»»» 
LI 0067: 

TRAP C$ESUB 
;IS ERROR COUNT AT 25 
:BR. IF LESS THAN 25 
:TRV TO DROP THE UNIT 
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SEQ 199 



8099 
8100 
8101 
8102 
8103 
8104 
81 OS 
8106 
8107 
8108 
8109 
8110 
8111 

8112 046560 
046560 
046560 

8113 046562 

8114 046570 

8115 046574 

8116 046576 

8117 046602 

8118 046606 

8119 046612 
8120 

8121 
8122 
8123 
8124 
8125 
8126 

8127 046616 

8128 046622 

8129 046624 

8133 046630 

8134 046632 
046632 
046634 
046636 
046640 

«135 046642 
% 046642 
, J7 
8138 
8139 
8140 
8141 
8142 
8143 

8144 046646 
814$ 046652 
8146 0466S4 

8150 046660 

81 51 046662 
046662 
046664 
046666 
046670 



TEST 5, SUBTEST 10 

VERIFIES THAT A DAiA BUFFER ADDRESS REFERENCING 
NONEXISTANT NEnORV CAUSES RECOVERABLE ERROR 
TERMINATION (TCs4). UlTH THE NXN BIT SET IN THE TSSR« AND 
THAT THE TAPE IS ULTINATELY POSITIONED PROPERLY. 



104402 
012737 
005737 
001402 
000137 
004737 
004737 
004737 



000000 
003100 

047034 
052664 
052530 
052622 



050216 



9S: 
10$: 



BGNSUB 



nov 

TST 
BEQ 
JHP 
JSR 
JSR 
JSR 



#0,T24DLV 
KTFL6 
10S 
80$ 

PC.T24RT3 

PC.T24REST 

PC.T24RT2 



;»»»»»» BEGIN SUBTEST »»»»»» 
T5.10: 

TRAP 



:SET BITS 16 AND 17 
; CHECK FOR KT11 
:BR. IF NO KT11 
;JUMP IF KT11 (SKIP TEST) 
;SET COMMAND PACKET UP CLEAR 
;SET COMMAND PACKET 
;SET UP OTHER COMMAND PACKET 



CSbSUB 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



016630 
020064 



004737 
103407 
004737 
010001 

104455 
001064 
003550 
011656 



012704 0S0040 



JSR 
BCS 
JSR 
NOV 
ERRDF 



PC.SOFINIT 
20$ 

PC.FATCMK 
R0.R1 

ERRNO.SFIERR.SFINSG 



20$: 



MOV 



fT24PACKET,R4 



;D0 INITIALIZE ON CONTROLLER 
:BR IF INIT WAS OK 

;INC AND CHECK FOR MORE THAN 25 ERRORS 

.•CONTENTS OF TSSR REGISTER 

: FATAL ERROR TSSR WAS NOT OK 

TRAP CSERDF 
.WORD 564 
.WORD SFIERR 
.WORD SFINS6 

: SUBROUTINE NEEDS PACKET ADDRESS 



WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 



004737 
103407 
004737 
010001 

1044S6 
001065 
004754 
0116S6 



010322 
020064 



JSR PC .WRTCHR 

BCS 24$ 

JSR PC.FATCHK 

MOV R0.R1 

ERRHRD ERRN0.WRTNS6«SFIMS6 



.•ISSUE WRITE CHARACTERISTICS 

;BR. IF COMMAND ISSUED OK 

;INC AND CHECK FOR MORE THAN 2S ERRORS 

;SAVE CONTENTS OF TSSR 

.WRITE CHARACTERISTIC FAILED 

TRAP C$ERHRD 
.WORD 565 
.WORD WRTMS6 
. -UORft IMSS 



F 16 



CZTUXAO TU80 FRONT END PRT B HAC^O ni200 29HMR-83 13:32 PAGE 110-1 
TEST 5: BASIC READ DATA (FORWARD AND REVERSE) 



8152 


046672 
04667c 


104406 






24$: 


CKLOOP 




8153 


046674 


012701 


160000 






NOV 


fUOOOO.RI 


8154 


046700 


012702 


177776 






NOV 


#i77776.R2 


8155 


046704 


004737 


017260 






JSR 


PC.XriXN 


8156 


046710 


103402 








BCS 


76$ 


8157 


046712 


000137 


047034 






JHP 


180$ 


8158 


046716 


010137 


050172 




76$: 


NOV 


R1.T24RB 


8159 










« « « « « 






8160 










■ 

•READ. ACK. CVCsl. COfWAND 


8161 










8162 










• 
• 






8163 










• 






8164 
















8165 


046722 


013737 


050216 


050174 




NOV 


T24DLY.T24RB«2 


8166 


046730 


012737 


140001 


050170 




NOV 


m4 t AAA4 Mm9 

#140001 •T24PK3 


8167 


046736 


012704 


050170 






NOV 


fT24PK3,R4 
f2S6.,T24SZ 


8168 


046742 


012737 


000400 


050176 




NOV 


8169 


046750 


010465 


177776 






NOV 


R4«TSDB(R5> 


8170 


046754 


004737 


017104 






JSR 


PC.UAITF 


8171 


046760 


016501 


000000 






NOV 


TSSR(R3)*Ri 


8172 


046764 


012702 


A A« AA A 

104210 






NOV 


fSSR!SC!NXH!BIT3.R2 


8173 


046770 


020102 








CNP 


Rl .Re 


8174 


046772 


001417 








BcO 


/>» 


8175 


046774 


062737 


000001 


050216 




ADD 


#1 « Tc4DLT 


8176 


047002 


022737 


000004 


050216 






• 1 C*IWb • 


8177 


047010 


AAA # AA 

001402 








6EQ 


50$ 


8178 


047012 


000137 


046602 






JNP 


10$ 


8179 


047016 


AAA 

004757 


AAAA^ M 

020064 




50$: 


JSR 


PC.FATCHK 


8183 


047022 
047022 
047024 
047026 
047030 


104456 

AA« A^ M. 

001066 

AVAJ V4 

050431 

A A A ^ V A 

011670 








ERRHRD 


ERRN0,T24NXN.PKT£SR 


8184 


047032 
047032 


A AA A A^ 

104406 






75$: 


CKLOOP 




BIBS 


04/034 








80$: 






8186 


047034 
047034 








180$: 


ENDSUB 






047034 


104403 










FATFLG.f2S. 


8187 


047036 


023727 


002170 


000051 




CNP 


8188 


047044 


002402 








BLT 


999$ 


8189 


047046 


004737 


020136 






JSR 


PC.CKDROP 


8190 


047052 








999$: 







:L00P IF SELECTED 

TRAP CSCLPI 
.•START POSSIBLE NXN ADDRESS 
:END POSSIBLE NXN ADDRESS 
:CALL NXN FINDER ROUTINE 
;BR IF WE FOUND NXN 
;JUNP OVER, CAN'T FIND NXN 
.•STARTING READ BUFFER ADDRESS 



;NENORY BITS 16 AND 17 
;READ. ACK. CVC^I. CONNAND 
.•SET UP R4 WITH PACKET ADDRESS 
;SET UP RECORD SIZE IN PACKET 
; ISSUE CONNAND 

;UAIT FOR SSRIBIT1 !B1T2 TO SET 
:6ET TSSR CONTENTS 
:SET UP EXPECTED 
;ARE THEY EQUAL 
*BR IF OK 

•NEXT BUNCH OF NENORY 
.•TOO NUCH NENORY 
.-END OF LINE 
;TRY AGAIN 

:INC AND CHECK FOR NORE THAN 25 ERRORS 
.•TSSR INCORRECT AFTER READ DATA 

TRAP C$ERHRD 
.WORD 566 
.WORD T24NXN 
.WORD PKTSSR 

.•LOOP IF SELECTED 

TRAP C$CLP1 

;»»»»»» END SUBTEST »»»»»» 
L10070: 

TRAP C$ESUB 
;IS ERROR COUNT AT 25 
.•BR. IF LESS TNAN 25 
:TRY TO DROP THE UNIT 
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SEQ 201 



8192 
8193 
8194 
8195 
8196 
8197 
8198 
8199 
8200 
8201 
8202 
8203 
8204 



8205 

8206 

8207 

8208 

8209 

8210 

8211 

8212 

8213 

82U 

8215 

8216 

8217 

8221 

8222 



047052 
047052 
047052 
047054 
047060 
047064 



8223 
8224 
8225 
8226 
8227 
8228 
8229 
8230 
8231 
8232 
8233 
8234 
8238 
8239 



8240 

8241 
8242 
8243 



047070 
047074 
047076 
047102 
047104 
047104 
047106 
047110 
047112 
047114 
047114 



047120 
047124 
047126 
047132 
047134 
047134 
047136 
047140 
047142 
047144 
047144 



TEST 5, SUBTEST 11 

VERIFIES THAT A READ REVERSE COIWAND ISSUED WHILE THE 
TAPE IS AT BOT RESULTS IN FUNCTION REJECT TERMINATION 
WITH THE NONEXECUTABLE FUNCTION (NEF) ERROR BIT SET 



104402 
004737 
004737 
004737 



052664 
052530 
052622 



BGNSUB 



JSR 
JSR 
JSR 



FC.T24RT3 

PC,T24REST 

PC.T24RT2 



:»»»»»» BE6IN SUBTEST »»»»»» 
T5.11: 

TRAP CtBSUB 
;SET COMMAND PACKET UP CLEAR 
;SET COMMAND PACKET 
;SET UP OTHER COMMAND PACKET 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



016630 
020064 



004737 
103407 
004737 
010001 

104455 
001067 
003SS0 
011656 



012704 050040 



JSR 
BCS 
JSR 
MOV 
ERRDF 



PC.SOFINIT 
20$ 

PC.FATCHK 
RO.RI 

ERRN0.SFIERR.SFIMS6 



20$: 



MOV 



fT24PACKET,R4 



;D0 INITIALIZE ON CONTROLLER 
:BM IF INIT WAS OK 

;INC AND CHECK FOR MORE THAN 25 ERRORS 

; CONTENTS OF TSSR REGISTER 

.'FATAL ERROR TSSR WAS NOT OK 

TRAP 
.WORD 
.WORD 
.WORD 

.•SUBROUTINE NEEDS PACKET ADDRESS 



CSERDF 
567 
SFIERR 
SFIMSG 



.•WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 



004737 
103407 
004737 
010001 

104456 
001070 
004754 
011656 

104406 



010322 
020064 



JSR 
BCS 
JSR 
MOV 
ERRHRD 



24S: CKLOOP 



PC. WRTCHR 
24$ 

PC.FATCHK 
R0.R1 

ERRNO.WRTMSG.SFIMSG 



: ISSUE WRITE CHARACTERISTICS 
;BR. IF COMMAND ISSUED OK 
:INC AND CHECK FOR MORE THAN 25 
;SAVE CONTENTS OF TSSR 
;WRITE CHARACTER I ST ISC FAILED 



ERRORS 



.•LOOP If SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRO 
568 

WRTMSG 
SFIMSG 



TRAP C$CLP1 
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SEQ 202 



8244 
824S 
8246 
8247 

8248 047146 

8249 047152 

8250 047156 

8251 047160 

8252 047162 

8256 047166 
047166 
047170 
047172 
047174 

8257 047176 
047176 

8258 047200 

8259 047204 
8260 

8261 
8262 
8263 
8264 
8265 
8266 

8267 047212 

8268 047220 

8269 047224 

8270 047224 

8271 047230 

8272 047234 

8273 047240 

8274 047244 

8275 047250 

8276 047252 

8277 047254 

8281 047260 
047260 
047262 
047264 
047266 

8282 047270 
047270 

8283 
8284 
8285 
8286 
8287 
8288 
8289 

8290 047272 

8291 047276 

8292 047300 

8293 047304 

8294 047306 

8295 047310 
8299 0473U 



004737 
004737 
103407 
010001 
004737 

104456 
001071 
051326 
011670 

104406 
012703 
013737 



012737 
012704 

010337 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
001072 
050771 
011670 

104406 



013701 
010102 
052702 
020102 
001406 
004737 



ISSUE REWIND CONHAND TO SELECTED TAPE DRIVE 



010424 
017220 



020064 



30S: 



JSR 
JSR 
ECS 

mv 

JSR 

ERRHRD 



CKLOOP 



PC.MtWlND 

PC*CNKTSSR 

30$ 

R0.R1 

PC.FATCNK 

ERRN0,T24RWN.PKTSSR 



:CALL TAPE REWIND CONnAND 
;SEE HOW TSSR IS 
;BR. IF NO PROBLEM 
:SAVE TSSR 

:INC AND CHECK FOR NORE THAN 25 ERRORS 
.•REWIND NOT ACCEPTED 



.•LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



CSERHRD 
569 

T24RWN 
PKTSSR 



000400 

003072 050172 



MOV 

mv 



f2S6..R3 
FREE.T24RB 



; RE CORD SIZE 
.•STARTING WRITE BUFFER ADDRESS 



TRAP CSCLP1 



READ REVERSE DATA.ACK CONNAND 



100401 050170 
050170 

050176 
177776 
017104 
000000 
100206 



020064 



65S: 



75$. 



NOV 

mv 

mv 
mv 

JSR 

mv 
mv 

CNP 
BEQ 
JSR 

ERRHRD 



CKLOOP 



f 100401. T24PK3 
fT24PK3.R4 

R3.T24SZ 

R4.TSDB(R5) 

PC.WAITF 

TSSR<R5).R1 

fSSR!SC!BIT1!BIT2.R2 

R1.R2 

75$ 

PC.FATCHK 

ERRm.T24WDE .PKTSSR 



;READ REVERSE DATA.ACK CONNAND 
:SkT UP R4 WITH PACKET ADDRESS 

;SET UP RECORD SIZE IN PACKET 

.•ISSUE CONNAND 

.•WAIT FOR SSR TO SET 

:6ET TSSR CONTENTS 

:SET UP EXPECTED 

.•ARE THEY EQUAL 

:BR. IF OK 

;INC AND CHECK FOR NORE THAN 25 
;TSSR INCORRECT AFTER READ DATA 

TRAP 
.WORD 
.WORD 
.WORD 

.•LOOP IF SELECTED 

TRAP 



ERRORS 

CSERHRD 
570 
T24WDE 
PKTSSR 

C$CLP1 



.•READ NESSA6E BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



0S0066 
002000 

020064 



mv 
mv 

BIS 
CNP 
BEQ 
JSR 



T24BFR«6.R1 

R1.R2 

fBIT10.R2 

R1.R2 

180$ 

PC.FATCHK 



ERRHRD ERRMQ.T24NEF.EXPREC 



.GET MESSAGE BUFFER 

:SET UP EXPECTED 

.SET THE NEF BIT IN EXPECTED 

:ARE THEY EQUAL 

;BR. IF EQUAL (ALL IS WELL) 

:INC AND CHECK FOR mRE THAN 25 ERRORS 

.TMg RLL BIT WAS NOT SET IN XSTO 
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TEST 5: BASIC READ DATA (FORUARD AND REVERSE) 

047314 104AS6 

047316 001073 

047320 050220 

047322 016330 

8300 047324 180$: 

8301 047324 
047324 

047324 104403 

8302 047326 023727 002170 000031 

8303 047334 002402 

8304 047336 004737 020136 

8305 047342 999S: 
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ENDSUB 



CHP 
BLT 
JSR 



FATFL6.f2S. 
999S 

PCCKDROP 



TRAP CtERHRD 

.yORD 571 

.WORD T24NEF 

.WORD EXPREC 

;»»»»»» END SUBTEST »»»»»» 
LI 0071: 

TRAP CSESUB 
:IS ERROR COUNT AT 2S 
;BR. IF LESS THAN 25 
:TRV TO DROP THE UNIT 
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SEQ 204 



8307 
8308 
8309 
8310 
8311 
8312 

8313 047342 
047342 
047342 

8314 047344 

8315 047SS0 

8316 047354 
8317 

8318 
8319 
8320 
8321 

8322 047360 

8323 047364 

8324 047366 

8328 047372 

8329 047374 
047374 
047376 
047400 
047402 

8330 047404 
8331 

8332 
8333 
8334 
8335 

8336 047410 

8337 047414 

8338 047416 

8342 047422 

8343 047424 
047424 
047426 
0474S0 
047432 

8344 047434 
0474S4 

8345 
8346 
8347 
8348 
8349 

8550 047436 

8551 047442 

8352 047446 

8353 047450 
6354 047452 
8358 047456 

047456 
047460 
047462 



TEST 5, SUBTEST 12 

VERIFIES THAT A READ REVERSE COMIAND ISSUED UHILE THE 
TAPE IS POSITIONED BEFORE THE FIRST RECORD ON TAPE 
(BUT NOT AT BOT) RtSULTS IN TAPE STATUS ALERT. 



104402 

004737 052664 

004737 052530 

004737 052622 



6(iNSUB 



JSR 
JSR 
JSR 



PC.T24RT3 

PC,T24REST 

PC.T24RT2 



;»»»»»» BEGIN SUBTEST »»»»»» 
T5.12: 

TRAP CSBSUB 
:SET COWMND PACKET UP CLEAR 
:SET CONNAND PACKET 
;SET UP OTHER COMMAND PACKET 



004737 016630 
1034C7 

004737 020064 
010001 

104455 
001074 
003550 
011656 

012704 050040 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



20S: 



JSR PC.SOFINIT 

BCS 20$ 

JSR PC«FATCHK 

NOV R0.R1 

ERRDF ERRNO.SFIERR.SFinSG 



mv fT24PACKET,R4 



;D0 INITIALIZE ON CONTROLLER 
;BR IF INIT UAS OK 

;INC AND CHECK FOR MORE THAN 25 ERRORS 

.•CONTENTS OF TSSR REGISTER 

.•FATAL ERROR TSSR UAS NOT OK 

TRAP 
.WORD 
.WORD 
.UORD 

.•SUBROUTINE NEEDS PACKET ADDRESS 



CSERDF 
572 

SFIERR 
SFIMSG 



004737 010322 
103407 

004737 020064 
010001 

104456 
001075 
0047S4 
011656 

104406 



URITE CHARACTERISTICS COfWAND (CALL TO URTCHR) 



JSR 
BCS 
JSR 
NOV 
ERRHRD 



24$: CKLOOP 



PC.URTCNR 
24$ 

PCFATCHK 
RO.RI 

ERRNO.URTNSG.SFINSG 



; ISSUE URITE CHARACTERISTICS 

:BR. IF COmAND ISSUED OK 

:INC AND CHECK FOR NORE THAN 25 ERRORS 

:SAVE CONTENTS OF TSSR 

.-WRITE CHARACTERISTiSC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

.•LOOP IF SELECTED 

TRAP 



CSERHRD 
573 

WRTHS6 
SFIHSG 



CSCLPI 



004737 010424 
004737 017220 
103407 
010001 

004737 020064 

104456 
001076 
051S26 



ISSUE REWIND CONNAND TO SELECTED TAPE DRIVE 



JSR PC, REWIND 

JSR PC.CHKTSSR 

BCS 30$ 

NOV R0.R1 

JSR PC.FATCHK 

ERRHRD ERRN0,T24RWN.PKTSSR 



.•CALL TAPE REWIND COMFIAND 
.-SEE HOW TSSR IS 
:BR. IF NO PROBLEM 
.•SAVE TSSR 

.•INC AND CHECK FOR NORE THAN 2S ERRORS 
.REWIND NOT ACCEPTED 

TRAP CSERHRD 
.WORD 574 
JUQBft uyutt 
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SEQ 20S 



8359 047466 
047466 

8360 047470 

8361 047474 
8362 

8363 
8364 
836S 
8366 

8367 047502 

8368 047510 

8369 047514 

8370 047520 

8371 047524 

8372 047530 

8373 047534 

8374 047540 

8375 047542 

8376 047544 
8380 

8381 

8382 047550 
047550 
047552 
047554 
047556 

8383 047560 
047560 

8384 047562 

8385 047566 
8386 

8387 
8380 
8389 
8390 

8391 047574 

8392 047602 

8393 047606 

8394 047612 

8395 047616 

8396 047622 

8397 047626 

8398 047632 

8399 047634 

8400 047636 

8404 047642 
047642 
047644 
047646 
047650 

8405 047652 
047652 

8406 0476S4 

8407 047660 
840B 

8409 



011670 

104406 
012703 
013737 



012737 
012704 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
004737 



104457 
001077 
005011 
011670 

104406 
012703 
013737 



012737 
012704 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
004757 

104456 
001100 
052374 
011670 

104406 
012703 
013737 



000400 
003072 



050172 



SOS: CKLOOP 

NOV 
MOV 



:LOOP IF SELECTED 



f?56..R3 
FREfc.T24RB 



.WORD 
TRAP 



.•RECORD SIZE 
; STARTING WRITE BUFFER ADDRESS 



PKTSSR 
CtCLPI 



140005 
050170 
050176 
177776 
017104 
000000 
000200 



020064 



050170 



WRITE DATA,ACK,CVC«1 CONNAND 



NOV #140005 J24PK3 

NOV «T24PK3.R4 

65S: NOV R3.T24SZ 

NOV R4,TSDB(R5) 

JSR PC.WAITF 

NOV TSSR(R5).R1 

NOV fSSR.R2 

CNP R1.R2 

BEQ 75S 

m PC.FATCHK 



ERRSOFT ERRNO.WRTERR. PKTSSR 



000400 
003072 



050172 



75$: CKLOOP 

NOV 
NOV 



#256., R3 
FREE.T24RB 



;WRITE DATA,ACK,CVCs1 CONNAND 
;SET UP R4 WITH PACKET ADDRESS 
;SET UP RECORD SIZE IN PACKET 
; ISSUE CONNAND 
;WAIT FOR SSR TO SET 
;6ET TSSR CONTENTS 
;SET UP EXPECTED 
;ARE THEY EQUAL 
;BR. IF OK 

;INC AND CHECK FOR NORE THAN 25 ERRORS 
;SOFT ERROR. REALLY CHECKING THE 
;READ REVERSE DATA CONNAND 
;TSSR INCORRECT AFTER READ DATA 

TRAP CSERSOFT 
.WORD 575 
.WORD WRTERR 
.WORD PKTSSR 

;LOOP IF SELECTED 

TRAP CSCLPI 

{RECORD SIZE 

{STARTING READ BUFFER ADDRESS 



100401 
050170 
050176 
177776 
017104 
000000 
000200 



020064 



050170 



READ REVERSE DATA.ACK CONNAND 



000400 
003072 



050172 





NOV 


#100401 .T24PK3 


;READ REVERSE DATA.ACK CONNAND 


16SS: 


NOV 


#T24PK3.R4 


;SET UP R4 WITH PACKET ADDRESS 




NOV 


R3.T24SZ 


.-SET UP RECORD SIZE IN PACKET 




NOV 


R4.TSDB(RS) 


; ISSUE CONNAND 




JSR 


PC.WAITF 


;WAIT FOR SSR TO SET 




NOV 


TSSR(R5).R1 


.GET TSSR CONTENTS 




NOV 


#SSR.R2 
R1.R2 


:SET UP EXPECTED 




CNP 


:ARE THEY EQUAL 




BEQ 


170$ 


:BR. IF OK 




JSR 


PC.FATCHK 


;INC AND CHECK FOR NORE THAN 25 




ERRHRO 


ERRN0,T24TRL, PKTSSR 


;TSSR INCORRECT AFTER READ DATA 




TRAP 
.WORD 
.WORD 
.WORD 


170$: 


CKLOOP 




;LOOP IF SELECTED 




TRAP 




NOV 


#256.. R3 


.-RI^CORD SIZE 




NOV 


FREE.T24RB 


; SMARTING READ BUFFER ADDRESS 



ERRORS 

C$ERHRD 
576 
T24TRL 
PKTSSR 

C$CLP1 



L 16 



CZTUXAO TU90 FRONT END PRT B MACRO m200 29-fUR-8S 1S:32 FME 112-2 
TEST 5: BASIC ;)EAD DATA (FORWARD AND REVERSE) 

READ REVERSE OATA.ACK 



8410 








Mil 








8412 








8413 047666 


012737 


100401 


050170 


8414 047674 


012704 


050170 




8415 047700 


010337 


050176 




8416 047704 


010465 


177776 




8417 047710 


004737 


017104 




8418 047714 


016501 


000000 




8419 047720 


012702 


100204 




8420 047724 


020102 






8421 047726 


001406 






8422 047730 


004737 


020064 




8426 047734 








047734 


104456 






047736 


001101 






047740 


052374 






047742 


011670 






8427 047744 








047744 


104406 






8428 047746 


01 3701 


A^ AAVd 

050074 




8429 047752 


A« AA A A 

010102 






8430 047754 


Atf A4AA 

052702 


A AA AA A 

000001 




8431 047760 


At A« A1 

020102 






8432 047762 


AAA J A^ 

001406 






8433 047764 


AAl 

004737 


At AAA § 

020064 




8437 047770 








WfffO 


4 Ai i 

104456 






A4 

047772 


AAA AAA 

001102 






047774 


Aff AAVl 

050272 






047776 


A4 A WA 

016330 






A J VA Atf AAAA 

8438 050000 








Af AAAA 

050000 








Af AAAA 

050000 


A A J d AV 

104403 






A4 VA Aff AAAt 

8439 050002 


AA 

023727 


AAt A 9A 

002170 


AAAA9 A 

000031 


A« « A AVAAA A 

8440 050010 


AAA J A A 

002402 






Ad M • Af AAA 

8441 050012 


A Ad 

004737 


A AAA VA 

020136 




050016 








8443 050016 


004737 


017340 




8444 050022 


103002 






8445 050024 


000137 


041514 




8446 050030 








8447 050030 








050030 


104432 






050032 


002662 







mv 

195S: HOV 
HOV 
HOV 
JSR 
NOV 
NOV 
CNP 
BEQ 
JSR 

ERRHRD 



200S: CKLOOP 

NOV 
NT^V 
BIS 
CNP 
BEQ 
JSR 

ERRHRD 



210$: ENDSUB 



CNP 
BLT 
JSR 

JSR 
6CC 
JNP 



999S: 
163S: 



r 00401 .T24PKS 

fT2<iPK3,R4 

R3.T24SZ 

R4.TSDB(R5) 

PC.WAITF 

TSSR(R5).R1 

fSSR!SC!BIT2.R2 

R1,R2 

200$ 

PCFATCHK 

ERRN0.T24TRL.PKTSSR 



T24BFR«14.R1 

R1,R2 

«BIT0.R2 

R1.R2 

210$ 

PC.FATCHK 

ERRN0,T24i.0R,EXPREC 



FATFLG,f25. 
999$ 

PC«CKDR0P 

PC.TSTLOOP 

163$ 

T24L00P 



EXIT TST 



SEQ 206 



.-READ REVERSE DATA,ACK CONNAND 
;SET UP R4 MITN PACKET ADDRESS 
;SET UP RECORD SIZE IN PACKET 
: ISSUE CONNAND 
:IIAIT FOR SSR TO SET 
;6ET TSSR CONTENTS 

:SET UP EXPECTED 
:ARE THEY EQUAL 
:BR« IF OK 

;iNC AND CHECK FOR NORE THAN 25 ERRORS 
;TSSR INCORRECT AFTER READ DATA 

TRAP CSERHRD 
.WORD 577 
.WORD T24TRL 
.WORD PKTSSR 

;LOOP IF SELECTED 

TRAP CSCLPI 

:6ET NESSAGE BUFFER (XST3) 

;SET UP EXPECTED 

.SET THE RIB BIT IN EXPECTED 

:ARE THEV EQUAL 

:BR. IF EQUAL (ALL IS WELL) 

;INC AND CHECK FOR NORE THAN 25 ERRORS 

;THE RIB BIT WAS NOT SET IN XSTO 

TRAP CSERHRD 
.WORD 578 
.WORD T24L0R 
.WORD EXPREC 

;»»»»»» END SUBTEST »»»»»» 
LI 0072: 

TRAP C$ESUB 
;IS ERROR COUNT AT 2S 
;BR, IF LESS THAN 25 
:TRY TO DROP THE UNIT 

;D0 WE NEED TO ITERATE TEST 
:BR, IF NO LOOP REQUIRED 
.•EXECUTE AGAIN 

:ALL DONE Ti'^S TEST 

TRAP CSEXIT 
.WORD L10056-. 



I 
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■/./.£• 










•/.CO 




.•LOCAL STORAGE FOR THIS TEST 






• * 












.BLKB 


4A.^ .Tilti9A#9v 

1 v"< . -TuVcA* 7 > 


•/.KC ACAAAA 




T24PACKET: 




■/.CiL ACAA/.A 


1 AA3A/. 




.WORD 


1 vQcUh 


•/.C7 ACAAA9 


ACAACA 




.WORD 


Tf^DAl A 


•AO ACAA/./. 


AAAAAA 




.WORD 


ft 

V 


•/.CO nCAA^ik 


vvlUUIc 




.WORD 


10. 


OhOV v7UU.'U 




T24DATA: 






•/.&1 acaai:a 


ACAAiLA 




.WORD 


T24BFR 


OHOc U3UU3JC 


UvUvwU 




.WORD 


0 


0*I03 U3wv3*l 


Annn9£ 




.WORD 


20. 




Uwwwwl' 




.WORD 


0 


0'<O3 V3UUOw 




T24BFR: 


.BLKW 


25. 


OhOO 




• 
• 










.-WRITE SUBSYSTEM NENORY CONNAND 


otoo 




• 












.BLKB 


10-<.-TUV2At7> 


HL79 Asnicn 




T24PK2: 






•A7t ACA1CA 


1 wUcUO 




.WORD 


100206 




ASA9AA 




.WORD 


T24BF2 


IU7S ASOI^^ 


AAAAAA 
VwwwUw 




.WORD 


0 


•A7A ACAiC^ 
0*tfw v3wl30 


AAAAAA 
WW WW 




.WORD 


6. 


11^77 










O** f T w3 w 1 WW 






.BLKB 


10-<.-TUV2Al7> 


mill AS0170 

OtOI w9wlrv 




T24PIC3: 






lUA? 0^0170 

0*IOC V^vlffV 


100?0S 




.WORD 


100205 


0*90J w^v i ff C 




T24RB: 








AAXQ7? 

W Jw> c 


T24UB: 


.WORD 


FREE 


0*»0? w7wl'1 


AAAAAA 

wwWww 




.WORD 


0 




AAAAAA 

WwwWw 


T24SZ: 


.WORD 


0 


AAA? 






.EVEN 




A£AA 




• 
• 






w"»OT 




• 










■ 

T24BF2: 






0**TI w3wCwv 








OtVC w7wcwv 


A10 
w 1 w 


T24BS0: 


.BYTE 


10 


A^QX n^A9ni 

0*tY J v7wCw 1 


7AA 
CUw 


T24BS1 : 


.BYTE 


200 




AAAAAA 


T24S2: 


.WORD 


0 


0*>~7 U7UCwV 


AAAAAA 

UwVvW 


T24S3: 


.WORD 


0 


■/.OA 




• 
• 






A&07 

0*t r r 




• 






A^OA 

0*ITO 






.EVEN 








.•TAPE NOTION PACKET COPINAND VAL 












BS01 0S0206 


100005 


T24RN: 


.WORD 


100005 


8502 050210 


100405 


T24UDR: 


.WORD 


100405 


8503 050212 


102005 


T24C0N: 


.WORD 


102005 


8504 0502U 


177777 




.WORD 


177777 


8505 050216 


000000 


T240LY: 


.WORD 


0 


8506 










8507 











SCO 207 



;COWIAND PACKET FOR TEST 

;WRITE CHARACTERISTICS CONPfAND. WITH IE, ACK 
.•ADDRESS OF CHARACTERISTICS BLOCK 

.•STARTING VALUE OF BLOCK SIZE 
: CHARACTERISTICS DATA BLOCK 
.ADDRESS OF MESSAGE BUFFER 

.LENGTH OF MESSAGE BUFFER 

:MESSAGE BUFFER 



.•WRITE SUB SYS MEM COMMAND. IE AND ACK 
.•ADDRESS Or SELECT BLOCK DATA 

.•SIZE OF DATA PACKET 

.'READ COMMAND. IE AND ACK 
.•ADDRESS OF WRITE BUFFER 
.•SIZE OF BUFFER (EXTtNT) 



;BSELO AREA 
:BSEL1 AREA 
;SEL 2 AREA 
;DATA AREA 



READ DATA (NEXT) 
READ DATA RETRY 
WRITE CONTINOUS 
END OF DATA 
DELAY STORAGE AREA 
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SEO 208 



8S09 
8S10 
8511 
8512 
8513 

85U 050220 

8515 050272 

8516 050342 

8517 050431 

8518 050515 

8519 050572 

8520 050656 

8521 050737 

8522 050771 

8523 051043 

8524 051110 

8525 051176 

8526 051253 

8527 051326 

8528 051375 

8529 051450 

8530 051515 

8531 051570 

8532 051656 

8533 051727 

8534 052002 
853^ 052053 

8536 052142 

8537 052224 

8538 052306 

8539 052374 

8540 052462 
8541 

8542 
8543 
8544 
8545 
8546 
8547 
8548 

8549 052530 

8550 052530 

8551 052534 

8552 052540 

8553 052544 

8554 052550 

8555 052552 

8556 052556 

8557 052562 

8558 052564 

8559 052570 

8560 052572 
e561 052576 

8562 052602 

8563 052610 

8564 052612 

8565 052616 



116 
122 
124 
124 
124 
111 
111 
122 
124 
124 
104 
122 
124 
122 
122 
124 
104 
124 
124 
103 
124 
127 
122 
122 
122 
122 
102 



012701 
012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
012711 
012702 
012762 
005742 
022702 
001371 



105 
111 
123 
123 
12i 
154 
154 
105 
123 
141 
141 
105 
123 
145 
101 
123 
162 
123 
123 
126 
123 
122 
145 
145 
145 
145 
141 



050040 
100004 
050050 

000012 
050060 

000024 

000000 
000030 
177777 

000000 



106 
102 
123 
123 
123 
154 
154 
101 
123 
160 
164 
101 
123 
167 
115 
123 
151 
123 
123 
103 
102 
111 
141 
141 
163 
141 
163 



;L0CAL TEXT MESSAGES FOR TEST 



T24NEF : 

T24L0R: 

T24VD6: 

T24NXN: 

T24WDF: 

T241LA: 

T24L0Q: 

T24SSR: 

T24VDE: 

T24B0T: 

T240TA: 

T24E0T: 

T24TN: 

T24RyN: 

T24RNC: 

T24AH3: 

T240fL: 

T24WDD: 

T24WDC: 

T24VCK: 

T24BA: 

T24USS: 

T24L0N: 

T24L0P: 

T24P8P: 

T24TRL: 

TST24IDi 



;♦ 



.ASCIZ *NEF Not Stt Afttr NON-EXECUTABLE FUNCTION' 

.ASCIZ 'RIB Not Stt Afttr READ REVERvE Into BOT' 

.ASCIZ 'TSSR Not Corrtct Afttr lUtgal Bufftr Address Bits Stt* 

.ASCIZ *TSSR Not Corrtct Afttr NXN Ntmory Address In Ptcktt' 

.ASCIZ 'TSSR Not Corrtct After lUtoal Hodt Bfts Stt* 

.ASCIZ *IUtg«l Addrtts Bits. Falltd To Stt ILA Bit In XSTO* 

.ASCIZ 'lUtgtl Nodt Bits. Falltd To Stt ILC Bit In XSTO' 

.ASCIZ *READ CONNAND Not Acctpttd' 

.ASCIZ *TSSR Not Corrtct Afttr WRITE DATA CoiMiand* 

.ASCIZ 'Tapt Not At BOT Afttr REWIND CoiMand* 

.ASCIZ 'Data Writttn To Tapt Not Equal To Data Rtad From Tapt* 

.ASCIZ 'READ DATA OVER EOT GAVE NO TAPE STATUS ALERT' 

.ASCIZ 'TSSR Not Corrtct Afttr READ COfWAND Reitct* 

.ASCIZ 'Rtwlnd (POSITION) Comand Not Acctpttd^ 

.ASCIZ 'RAN Error. Corrtct Data Patttrn Not In Ran* 

.ASCIZ *TSSR Inlt. Falltd Afttr READ COMMAND* 

.ASCIZ *Dr1vt 7 Stltct Falltd To Stt "Of I" In TSSR* 

.ASCIZ 'TSSR Not Corrtct Afttr READ DATA COMMand. SUB Bit Stt* 

.ASCIZ *TSSR Not Corrtct Afttr READ DATA CoMand* 

.ASCIZ 'CVC Stt. D1dn"t Rtstt VCK In Ntssagt Bufftr* 

.ASCIZ *TSBA Not Corrtct Afttr READ DATA COMand* 

.ASCIZ 'WRITE SUBSYSTEM MEMORY CoMsand Not Acctpttd (RAM Rtad)* 

.ASCIZ *Rtad1ng Long Rtcord Falltd To Stt RLL Bit In XSTO' 

.ASCIZ 'Rtading Long Rtcord Falltd To Stt RLS Bit In XSTO* 

.ASCIZ *Rtt1dual Bytt Count Incorrtct Afttr Short Rtcord Read' 

.ASCIZ *Rtad1ng Long Rtcord Falltd To Givt Tapt Status Altrt' 
.ASCIZ 'BatTc Rtad Data (Forward and Rtvtrst)* 

.EVEN 



;ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
.-WRITE SUBSYSTEM MEMORY COMMAND 



T24REST: 



050060 64S: 



SAVREG 

MOV fT24PACKET,Rl 

MOV f100004,(R1)* 

NOV fT24DATA.(Rl)« 

CLR (R1)« 

MOV #10. .(RD* 

NOV ffT24BFR,(Rl)« 

CLR (R1)« 

MOV f20..(R1)« 

CLR (R1)^ 

MOV «0.(R1) 

MOV f24.,R2 

MOV fl77777.T24BFR(R2) 

TST -(R2) 

CMP fO,R2 

BME 64i 



:SAVE THE REGISTERS 

.-START OF THE PACKET 

.•WRITE SUBSYSTEM MEM. WITH ACK. 

;ADDRESS OF CHARAISTICS DATA BLOCK 

; EXTENDED ADDRESS 

:SIZE OF DATA BLOCK IN BYTES 

.-ADDRESS OF MESSAGE BUFFER 

; LENGTH OF MESSAGE BUFFER 

: SELECT DRIVE ZERO 
;NUMBER OF LOCATIONS TO BE CLEARED 
:ALL ONES TO MESSAGE BUFFER 
;NEXT LOCATION 
;CKECK FOR END OF LOOP 
'ItPtP fifllMfi UMTIL hi 
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ATS 












0300 










0307 U3cDcc 






T9£BT9 • 




09 fU vjCOcC 








SAVRcu 


09f 1 U9cOcO 


m 97m 


ACA1 CA 




nOV 


09 rc U9co^c 


A1 9791 


1 AA9Ai^ 




nOV 


09 f 9 U9cO90 


M 9791 


A<n9AA 




nOV 


09r*i U9cO*ic 


fWlCA91 
Uv9Uc1 








09 r 9 U9cO*t*l 


A1 9791 


AAAAAil 




iuiu 
nQV 


X7A n<9A<n 

09rO U9CD9U 


vU9Uc1 








09r f U7C09C 


A1 97A1 






■AU 


09rO U9cD90 


AACA91 








11^70 n^9AAn 


UU9U 1 1 






(La 


030V V3CQOC 


nAn9A7 






BTC 


ASAI OS 






T9^BTV« 

1 c^K us 














j|Cj|« nC9A7n 

w7COfV 


W 1 C' U 1 


MM 7A 




MOV 




A1 9791 
UlCrCI 


AAAAAA 




HAU 


858S 052700 


012721 


000000 

WWW 




MOV 


8586 052704 


005021 






CLR 


8587 052706 


012711 


000000 




NOV 


8588 052712 


000207 






RTS 


8589 0527U 








ENDTST 


0527U 








0527U 


104A01 









D 1 

13:32 PAGC 1U-1 



SEO 209 



PC 



; RE TURN 



fT24PK2.R1 
#100206. (Rl)« 
fT24BF2,(Rl)« 

(R1)4 

f6.,(R1)« 
(R1)« 

fT24BF2,Rl 
(RD* 
<R1) 
PC 



«T24PK3.R1 

ff0,(R1)« 

ff0.(R1)« 

(RD* 

f0,(Rl) 

PC 



:SAVE THE REGISTERS 
; START OF THE PACKET 

:VRiTE suasrsTEN men. with ACK. IE 

.-ADDRESS OF DATA BLOCK 

: EXTENDED ADDRESS 

.-SIZE OF DATA BLOCK IN BYTES 

; POINT TO DATA SEL AREA 



; RE TURN 

:SAVE THE REGISTERS 

; START OF THE PACKET 

; CLEAR AREA OUT 

;ADDRESS OF DATA BLOCK 

.•EXTENDED ADDRESS 

.SIZE OF DATA BLOCK IN BYTES 

.•RETURN 



L10056: 



TRAP CSETST 
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8591 

8592 

8593 

8594 

8595 

8596 

859/ 

8598 

8599 

8600 

8601 

8602 

8603 

860A 

8605 

8606 

8607 

8608 

8609 

8610 

8611 

8612 

8613 

86U 

8615 

8616 

8617 

8618 

8619 

8620 

8621 

8622 

8623 

8624 

8625 

8626 

8627 

8628 

8629 

8630 

8631 

8632 

8633 

8634 

8635 

8636 

8637 

8638 

8639 

8640 

8641 

8642 

8643 052716 
052716 

8644 052716 005037 002170 

8645 052722 005037 003100 
8650 052726 005737 002162 



E 1 
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.S8TTL TEST 6: MANUAL INTERVENTION 

THE MANUAL INTERVENTION TEST IS A STANDALONE ROUTINE (NOT REALLY A "TEST") 
THAT ALLOWS THE OPERATOR TO CHECK OUT VARIOUS ELEMENTS AND FUNCTIONS OF 
THE SUBSYSTEM THAT CANNOT BE MANIPULATED BY THE PROGRAM ALONE. WHEN 
THIS ROUTINE IS STARTED. IT FIRST PRINTS OUT A MENU OF SELECTABLE 
SUBTESTS AND THEN WAITS FOR THE OPERATOR TO TYPE IN A SELECTION CODE. 
THE ONLY WAYS TO EXIT THIS ROUTINE AND RETURN TO THE DIAGNOSTIC SUPERVISOR 
ARE BY TYPING <CTRL-C> OR SELECTING CODE 3. 
SELECTION CODES AND SUBROUTINES ARE: 



CODE ROUTINE 

0 HELP. PRINTS THIS MENU. 

1 REWIND AND UNLOAD COMMAND TEST 

2 WRITE-PROTECT TEST 

3 EXIT (RETURN TO SUPERVISOR) 



EACH MENU ITEM CORRESPONDS TO A SUBTEST, AS FOLLOWS: 



PRINTS OUT THE MENU ON THE CONSOLE TERMINAL. 



SEQ 210 



THIS ROUTINE INSTRUCTS THE OPERATOR TO PLACE THE DRIVE ON-LINE 
AND AT OR BEYOND BOT. THE TEST WILL THEN ISSUE THE REWIND AND 
UNLOAD COMMAND. IT WILL ALSO TELL THE OPERATOR IS THE DRIVE 
ENDED UP ON-LINE OR OFF-LINE. 

THIS ROUTINE INSTRUCTS THE OPERATOR TO MOUNT A SCRATCH 
TAPE REEL THAT DOES NOT HAVE A WRITE-ENABLE RING INSTALLED. THEN 
WAITS FOR THE OPERATOR TO RESPOND THAT THIS HAS BEEN ACCOMPLI SHED. 
UPON THE RESPONSE. THE PROGRAM VERIFIES THAT THE TRANSPORT SHOWS 
A WRITE-PROTECTEO STATUS. THEN ATTEMPTS TO WRITE DATA ON THE 
TAPE AND EXPECTS THE APPROPRIATE ERROR TERMINATION INDICATING THAT 
THE WRITE FUNCTION COULD NOT BE PERFORMED BECAUSE THE REEL IS 
WRITE-PROTECTED. IF THE APPROPRIATE TERMINATION IS NOT RECEIVED. 
AN ERROR IS REPORTED. 



BGNTST 

CLR 
CLR 
TST 



FATFLG 

KTFL6 

TSTCNT 



T6:: 

.•CLEAR FATAL ERROR FLAG 
;HOLO OF KT11 

.'IS THIS ^'P^T TgST 



f 1 
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DCU 


91ft 




019700 


AC4CCA 






nuv 


tfTlAUB DO 


86S1 0S2740 


000402 










ic 


0S2742 








c 






AA^f 6S?7&2 


019700 








MOW 
nuv 


tfTlnlb 00 






01 717? 




It* 


JSP 


PC.TSTSETUP 


8657 0S27S2 


004737 


021166 






JSR 


PC CUKNAM 


8AS8 05275A 


101402 








ACS 


19ft 


8A59 0S27A0 


0001 37 


053744 






JMP 


64ft 




022717 


000001 

wwwVV 1 


002 162 




CMP 


#1 TSTtMT 

w 1 9 1 9 1 VII 1 


8661 052/72 


001402 










221 


8662 052774 


000137 

www ■ ^ * 


053744 






JMP 


64t 


8663 053000 

•^#Wrf v^^wwv 








228: 




8667 053000 

www f w ^ ^WW V 


005037 


002170 

WWfc 1 f w 




2i: 


CLR 


FATFL6 


8668 053004 

W^^#W W ^ W w^ 


012737 


176750 

V V w* ^w 


053756 


MOV 


#65000., T38DLY 


8669 053012 


004737 

Ww^ • W ■ 


016630 

W 1 Www V 




58: 


JSR 


PC SOFINIT 

■ V # «Wr ANA 1 


8670 053016 


103427 








ACS 

wV w 


23ft 


8671 053020 

WW" ■ W «# w W fc w 


010001 

w ■ www 1 








MOV 


PO R1 

FlW # " ■ 


8672 053022 


032701 


000200 






BIT 


fSSR R1 


8673 053026 


001023 

WW I w^ ^ 








BNE 


238 


8674 053030 

^ W«#^WrfW 










DELAY 


250 


033030 


012727 


000250 

WWWfc «rW 








053^^34 


000000 

www www 












053036 


013727 


002116 

WWfc 1 1 w 










053042 


000000 












053044 


005367 


177772 










053050 

w^»w^ w 


001375 












053052 


005367 

WW^rfW* 


1 77756 

■ • • ■ ^w 










053056 


001367 












8675 053060 


005337 


053736 

W^^f ^w 






DEC 


T38DLV 


8676 053064 

w w^»w^#^ 


001352 

WW ■ ^^fc 








BNE 


5$ 


8677 053066 

WW* • w^^w*#W 










ERRDF 

fc"»»WI 


ERRNO.SFIERR.SF 


053066 


104455 










053070 


001131 












053072 


003550 












053074 


011656 

w ■ ■ w^w 












8678 053076 


012700 

W 1 * WW 


055552 




238: 

»«^w • 


MV 

nww 


fHIHENU.RO 

w Fi • rib «w 9 n w 


8679 053102 


012701 

W ■ fc • W 1 


000006 

www WWW 






MOV 

■ •WW 


f6.R1 


8680 053106 


004737 


021144 

Wfc 1 i 






JSR 

W W" 


PC.GETSEL 


8681 053112 


010004 

w • www ^ 








NOV 

"WW 


R0.R4 

I*W 


8682 053114 


006304 








ASL 


R4 


8683 053116 

%n#w^ * 'V 


000174 

www ■ • ^ 


053122 

W^^ 1 






JMP 


a6S(R4) 


8684 053122 


053000 






6S: 

wv • 


.WORD 


2% 


8685 053124 


053132 








.WORD 


20t 

fcW w 


8686 0531 26 


053464 








.yORD 


2SS 


8687 053130 


053744 








.WORD 


638 

W^w 


8688 














8689 














8690 053132 








20S: 


PRINTF 


ffT38MS4 


053137 


012746 


055144 










0551 X) 


012746 


000001 










053142 


010600 












053144 


104417 












053146 


062706 


000004 










8691 053152 


004737 


016630 




222S: 


JSR 


PC. SOFINIT 
306ft 


8692 053156 


103405 








BCS 


8696 053160 


010001 








NOV 


R0.R1 



SEO 211 



:BR. IF FIRST TEST 
;"TEST NOT EXECUTED" 
;JUNP IF NOT FIRST TEST 

.TEST ID MESSAGE 

:D0 THE COMMON SETUP 

;IS MANUAL INTERVENTION ALLOWED? 

:BR. IF MANUAL INTER ALLOWED 

;JUMP IF NOT ALLOWED 

; CHECK MIGHT HAVE TO LEAVE 

;BR. IF YOU DON'T HAVE TO 

: WASN'T FIRST TEST IN SEQUENCE 

.•CLEAR THE FATAL ERROR FLAG 
.SET UP DELAY COUNTER 
;D0 A SOFT INIT 
; BRANCH IF OK 

.CONTENTS OF TSSR REGISTER 
.•CHECK FOR TSSR SET 
.•KEEP GOING IF NOT SET 
;CALL DELAY ROUTINE 

NOV 
.WORD 
MOV 
.WORD 
DEC 



DEC 
BNE 



#250. (PC)* 
0 

LftDLV.(PC)* 
0 

-6(PC) 

'*4 

-22(PC) 
.-20 



:BUMP COUNTER DOWN 
;BR. IF MORE TIME LEFT 
.•REPORT FATAL ERROR 

TRAP CSEROF 
.WORD 601 
.WORD SFIERR 
.WORD SF IHSG 

MENU OF MANUAL INTERVENTIONS 

MAXIMUM ALLOWED SELECTION 

GO GET THE OPERATORS SELECTION 

GET NUMBER FROM ROUTINE 

CONVERT TO WORD OFFSET 

JUMP TO PROPER LOOP 

RETYPE THE MENU 

3 REWIND AND UNLOAD COMMAND TEST 

4 WRITE PROTECT 
6 LEAVE THE TEST 



; TELL* EM WHAT TO DO 

MOV 

MOV 

MOV 

TRAP 

ADO 

;D0 SOFT INIT OF CONTROLLER 

.-BR IF SOFT INIT « OK 

.SAVP CQtlTPtiTS Oy TSSR 



#T58MS4,-(SP) 

#1.-(SP) 

SP.RO 

CSPNTf 

#4.SP 
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8697 053162 
0S3162 
0S3164 
0S3166 
053170 

8698 053172 

8699 053172 

8700 053176 

8701 053202 

8705 053204 

8706 053206 
053206 
053210 
053212 
0S32U 

8707 053216 

8708 053216 

8709 053224 

8710 053232 

8711 053234 
053234 
053240 
053242 
053246 
053250 
053254 
053256 
053262 

8712 053264 

8713 053270 

8714 053272 
053272 
053276 
053302 
053304 
053306 

8715 053312 

8716 053316 
053316 
053322 
053326 
0S3330 
053332 

8717 053336 

8718 053342 

8719 053346 

8720 053352 

8721 053356 

8722 053362 
8725 053364 

8727 053366 
053366 
053370 
053372 
053374 

8728 053376 
053376 



104455 
001132 
003550 
011656 

012704 
004737 
103405 
010001 

104456 
001133 
004754 
011656 

012737 
036527 
001431 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005337 
001355 

012746 
012746 
010600 
104417 
062706 
000137 

012746 
012746 
010600 
104417 
062706 
012704 
010465 
004737 
016501 
012702 
020201 
001404 

104456 
001134 
055300 
011670 

104406 



G 1 
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ERROF ERRNO,SFIERR,SFIPtSG 



054470 
010322 



300S: 



310$: 

000144 053756 
000000 000100 31U: 



000250 
002116 
177772 
177756 
053756 



055110 
000001 



000004 
053152 

055223 
000001 



000004 
054520 
177776 
017104 
000000 
000300 



315$: 



320$: 



NOV #T38PK2,R4 

JSR PC.URTCHR 

BCS 310$ 

mv R0.R1 

ERRHRD ERRNO.URTKSG ,SF INSG 



NOV f100.,T380LV 

BIT TSSR(RS).fOFL 

8EQ 315$ 

DELAY 250 



DEC T38DLV 
BNE 311$ 
PRINTF fT380FL 



JNP 222$ 
PRINTF «T38HS5 



NOV 
NOV 
JSR 
NOV 
NOV 
CNP 
BEQ 
ERRHRD 



fT38PK3,R4 

R4,TSDB(ft5) 

PC.WAITF 

TSSR(R5),R1 

fSSR!0FL,R2 

R2,R1 

350$ 

ERRN0«T38SST«PKTSSR 



350$: CKLOOP 



;DEVICE FATAL ERROR DURING INIT 

TRAP C$ERDF 

.UORD 602 

.WORD SFIERR 

.yORD SFINSG 

.•SUBROUTINE NEEDS PACKET ADDRESS 

.•ISSUE WRITE CHARACTERISTICS 

;BR. IF COHHAND ISSUED OK 

;SAVE CONTENTS OF TSSR 

.WRITE CHARACTERISTISC FAILED 

TRAP CSERHRD 
.WORD 603 
.WORD WRTNSG 
.WORD SF INSG 

.'SET UP FOR A LONG WAIT 
;IS DRIVE OFF-LINE 
;BR, IF DRIVE IS ON-LINE 
.'DELAY ABOUT .25 SEC 

NOV 
.WORD 
NOV 
.WORD 
DEC 
BNE 
DEC 
BNE 

;8UNP LONG DELAY COUNTER DOWN 
:BR. IF NORE LONG DELAY TO GO 
:'1DRIVE IS NOW OFF-LINE" 

NOV 

NOV 

NOV 

TRAP 

ADD 

.•STAY HERE FOREVER. WITH NESSAGE 
.-"DRIVE SHOULD NOW REWIND AND GO OFL" 



«250.(PC)« 
0 

L$DLY.(PC)« 
0 

-6(PC) 
.-4 

-22<PC) 
.-20 



ffT380FL.-(SP) 
fl.-(SP) 
SP.RO 
C$PNTF 
ff4.SP 



NOV 
NOV 
NOV 
TRAP 
ADD 

;SET UP NEW PACKET FOR REWIND/RELEASE 

.•REWIND RELEASE .ACK.CVC-1 CND 

.•WAIT FOR SSR TO SET 

;GET TSSR STATUS 

.-SET UP EXPECTED 

.IS EVERYTHING OK 

.BR. IF ALL IS WELL 

{DEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 

.LOOP ON ERROR. IF FLAG SET 



#T38NS5.-(SP> 
fl.-(SP) 
<P.RO 
$PNTF 
#4.SP 



CSERHRD 
604 
T38SST 
PKTSSR 



H 1 
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8729 053400 

8730 053404 

8731 053410 

8732 053412 
053412 
053416 
053422 
053424 
053426 

8733 053432 

8734 053434 
053434 
053440 
053444 
053446 
053450 

8735 053454 

8736 053460 

8737 053464 
053464 
053466 
053470 
053472 
053474 
053476 
053500 

8738 053S00 
053500 

8739 053502 

8740 053506 

8741 053510 

8742 0SSS14 

8743 0S3514 

8744 053520 

8748 053522 

8749 053524 
053524 
053526 
053530 
053532 

8750 0S3S34 
053534 

8751 053536 

8752 053542 

8753 053546 

8757 053550 

8758 0S35S2 
053552 
053554 
053556 
053560 

8759 053562 
053562 

8760 0S3S64 

8761 0S3S70 

8762 053572 

8763 053576 



016501 
032701 
001011 

012746 
012746 
010600 
104417 
062706 
000410 

012746 
012746 
010600 
104417 
062706 
005037 
000137 

104443 
000404 
056024 
000120 
055430 
177777 



103371 
005737 
001002 
000137 

004737 
103405 
010001 

104455 
001135 
003550 
011656 

104406 
012704 
004737 
103405 
010001 

104456 
001136 
004754 
01 1656 

104406 
013701 
010102 
05270? 
020102 



000000 
000100 



055046 
000001 



000004 



055110 
000001 



000004 
002172 
053000 
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rov TSSR(R5).R1 

BIT fOFL.RI 

BNE 380$ 

PRINTF fV380NL 



056024 
053000 
016630 



054470 
010322 



054014 
000004 



380S: 



BR 390t 
PRJNTF fT380FL 



390$: 
25$: 



CLR INTRECV 
JfV> 2$ 

GflANiL T38NS6,T38DAT.-1.N0 



27$: 



JSR 
BCS 
MOV 
ERRDF 



400$: CKLOOP 

HOV 
JSR 
BCS 
NOV 
ERRHRD 



410$: CKLOOP 

NOV 
NOV 
BIS 

CNP 



BNCONPLETE 25$ 

TST T38DAT 
27$ 
2$ 



PC.SOFINIT 

400$ 

R0.R1 

ERRN0.SFIERR«SFIKS6 



«T38PK2,R4 
PC.URTCHR 
410$ 
R0.R1 

ERRN0.URTNSG.SFINS6 



T38BFR«6,R1 

R1.R2 

#BIT2.R2 

Jli£2 



SEQ 213 



.'READ TSSR STATUS 
.•CHECK THE OFF-LINE BIT 
;BR. IF DRIVE IS OFF-LINE 
.•"DRIVE IS NOW ON-LINE" 



:ALraST DONE 





• 1 ^OUnL • — 1 9r } 


NOV 


#1 -(SP) 


NOV 


SP.fiC 


TRAP 


C$PNTF 


ADD 


f4.SP 


NOV 


#T380FL.-(SP) 


NOV 


f1,-(SP) 


NOV 


SP.RO 


TRAP 


r$PNTF 


ADD 


*4.SP 



; CLEAR INTERRUPT FLAG 
:TRV AGAIN 
.'WAIT FOR OPERATOR TO NOUNT TAPE 

TRAP C$GNAN 

BR 10000$ 

.WORD T38DAT 

.WORD T$CODE 

.WORD T38NSG 

.WORD -1 



10000$: 



;RfcTRY IF ERROR 

.•DID OPERATOR SAY *YES* 

: BRANCH IF YES 

; RETURN TO NAIN NENU 



BCC 



25$ 



;D0 SOFT INIT OF CONTROLLER 

:BR IF SOFT INIT « OK 

.•SAVE CONTENTS OF TSSR 

;DEVICE FATAL ERROR DURING INIT 

TRAP C$ERDF 
.WORD 605 
.WORD SFIERR 
.WORD SFINSG 

:LOOP IF SELECTED 

TRAP C$CLP1 
.•SUBROUTINE NEEDS PACKET ADDRESS 
.•ISSUE WRITE CHARACTERISTICS 
;BR. IF COMNAND ISSUED OK 
.•SAVE CONTENTS OF TSSR 
;WRITE CHARACTERISTISC FAILED 

TRAP 



;LOOP IF SELECTED 



.WORD 
.WORD 
•WORD 



C$ERHRD 
606 

WRTNSG 
SFINSG 



: PICK UP XSTO CONTENTS 
:SET UP EXPECTED 
;SET UP THE WRITE LOCKED BIT 
■•ABE THEY CQBRECT 



TRAP C$CLP1 



I I 
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876A 053600 

8768 0S3602 
053602 
053604 
053606 
053610 

8769 053612 

8770 053616 
053616 

8771 053620 
053620 
053624 
053630 
053632 
053634 

8772 053640 

8773 053646 

8774 053652 

8775 053656 

8776 053662 

8777 053666 

8778 053672 

8779 053674 

8783 053676 
053676 
053700 
053702 
053704 

8784 053706 
053706 

8785 053710 

8786 053714 

8787 053716 

8788 053722 

8789 053724 

8793 053726 
053726 
053730 
053732 
053734 

8794 053736 
053736 

8795 053740 
8796 
8797 
8798 

8799 053744 

8800 053744 
0SS744 104432 
053746 002570 

8801 
8802 
8803 
8804 
8805 
8806 
8807 
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001406 




BEQ 


430$ 






ERRHRD 


ERRNO . T 3ByRL . E XPRE C 


104456 

oon37 












054711 








016330 








000137 


053000 

430S: 


JNP 

CKLOOP 


2t 


104406 




PRINTF 


#T38W0K 


012746 


055470 






012746 


000001 






010600 








104417 








062706 


000004 






017737 


127226 054543 435S: 


NOV 


aFREE,T38WR 


012704 


054540 


MOV 


«T38PK4,R4 


010465 


177776 


NOV 


R4 JSDB(R5) 


004737 


017104 


JSR 


PC«UAITF 


016501 


000000 


MOV 


TSSR(R5).R1 


012702 


100206 


ROV 


«SC!SSR!BIT1!BIT2*R2 


020102 




CNP 


R1.R2 


001404 




BEQ 


440$ 






ERRHRO 


ERRNO, T38URT,PKTSSR 


104456 






001140 








054625 








011670 


440S: 


CKLOO? 




104406 








013701 


054014 


NOV 


T38BFR*6,R1 


010102 




NOV 


R1.R2 


052702 


004000 


BIS 


#BIT11,R2 


020102 




CNP 


R1,R2 


001404 




BEQ 


450$ 






ERRHRD 


ERRN0,T38ULE,EXPREC 


104456 






001141 








054752 








016330 


450$: 


CKLOOP 




104406 








000137 


053000 


JHP 


2$ 



63$: 
64$: 



EXIT TST 



:LOCAL TEXT MESSAGES FOR TEST 



:LOCAL STORAGE FOR THIS TEST 



SEC 2U 



;BR. IF ALL IS WELL (OK) 

;'ynm LOCKED BIT IS NOT SET ETC." 

TRAP CSFRKRD 
.WORD 607 
.WORC T38URL 
.WORD EXPREC 

.•BECAUSE OF ERROR 60 BACK TO NENU 

;LOOP IF SELECTEO 

TRAP C$CLP1 

;PRINT 'IDRIVE IS WRITE PROTECTED" 

NOV fT38U0K,*(SP> 
NOV #1.-(SP) 
NOV SP.RO 
TRAP C$PNTF 
ADD «4.SP 

:SET UP WRITE BUFFER ADDRESS 

;GET PACKET ADDRESS 

:SET THE PACKET ADDRESS 

;UAIT FOR SSR TO SET 

;GET TSSR 

;SET UP EXPECTED 

;ARE THEY EQUAL (CORRECT) 

:BR, IF CORRECT STATUS 

:"TSSR INCORRECT AFTER WRITE COHNAND 

TRAP CSERHRD 
.WORD 608 
.WORD T38WRT 
.WORD PKTSSR 

;LOOP ON ERROR, IF FLAG SET 

TRAP C$CLP1 

.•READ XSTO CONTENTS 
;SET UPR EXPECTED 

:SET THE WRITE LOCK ERROR BIT (XSTO) 

;WAS THE BIT SET 

;BR. IF IT WAS (GOOD) 

;'imiTE LOCK ERROR BIT NOT SET" 

TRAP C$ERHRD 
.WORD 609 
.WORD T38WLE 
.WORD EXPREC 

;LOOP IF SELECTED 

TRAP C$CLP1 

:G0 BACK TO MENU 



: LEAVE TEST 



TRAP C$EX1T 
.WORD LI 0073- . 



CZTUXAO TU80 FRONT END PRT B 
TEST 6: MANUAL INTERVENTION 



8808 
8809 
8810 
8811 

8812 0S37S0 

8813 0537S2 
88H 053754 
8815 

8816 053756 
8818 053760 

8820 053770 

8821 053770 

8822 053772 

8823 053774 

8824 053776 

8825 054000 

8826 054000 

8827 054001 

8828 054002 

8829 054004 

8830 054006 

8831 054462 
8832 

8833 

8835 054464 

8837 054470 

8838 054470 

8839 054472 

8840 054474 

8841 054476 
8842 

8843 

8844 054500 

8845 054500 

8846 0S4502 

8847 054504 

8848 054506 
8850 054510 

8852 054520 

8853 054522 

8854 054524 

8855 054526 

8856 054530 
8857 

8858 
8859 

8861 054552 

8863 054540 

8864 054542 

8865 054544 

8866 054546 
8867 

8868 
8869 
8870 
8871 
8872 
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bEO 215 



140004 
054500 
000000 
000012 



054006 
000000 
000400 
000000 

140412 
000000 
000000 
000000 
000000 



140005 
000000 
000000 
000400 



;LOCAL STORAGE FOR THIS TEST 



000000 


TTI0N2: 


.WONd 0 


000000 


TVSAV2: .WORD 


0 


000000 


TPSAV2: .yORD 


0 


000000 


T38DLY: .WORD 


0 




.BLKB 


10-<.-TUV2A87> 




T38PACKET: 




140006 


.WORD 


140006 


054000 


.WORD 


T38TAD 


000000 


.WORD 


0 


000012 


.WORD 


10. 




T38TAD: 




000 


T38BS0: .BYTE 


0 


000 


T38BS1: .BYTE 


0 


000000 


T38BS2: .WORD 


0 


000000 


.UORD 


0 




T386FR: .BLKW 


150. 


000000 


T38EB: .WORD 





T38PK2: 



.BLKB 10-<.-TUV2A87> 



.WORD 
.WORD 
.WORD 
.WORD 



T38DTA: 

.WORD 
.WORD 
.WORD 

T38EAI: .WORD 
.BLKB 

T38PK3: .WORD 
.WORD 
.WORD 
.WORD 
.WORD 



140004 
T38DTA 
0 

10. 



T38BFR 
0 

256. 
0 

10-<.-TUV2A87> 

140412 

0 

0 

0 

0 



>VIR|TE TAPE PACKET 



.BLKB 
T38PK4: .WORD 
T38WR: .WORD 

.WORD 
T38SIZ: .WORD 



10-<.-TUV2A87> 

140005 

0 

0 

256. 



;WORD SET IF SUPERVISOR TTI IMTER OFF 
;SAVE TTI VECTOR 
.•SAVE TTI PRIORITY 

: DELAY COUNTER FOR TEST 

:CONNAND PACKET FOR TEST 

;WR1TE SUBSYSTEM MEM. CMD. ACK.CVC«1 

.•ADDRESS OF CHARACTERISTICS BLOCK 

.•STARTING VALUE OF BLOCK SIZE 
.•CHARACTERISTICS DATA BLOCK 
:BSELO BYTE 
;BSEL1 BYTE 
:BSEL1 WORD 
;DATA 

.-MESSAGE BUFFER 

;END OF BUFFER ADDRESS 



.•COMMAND PACKET FOR TEST 

.•WRITE CHARA. MEM. CMND.. ACK.CVC-1 

.•ADDRESS OF SELECT DATA BLOCK 

.-STARTING VALUE OF BLOCK SIZE 



.•SELECT DATA BLOCK 
.-ADDRESS OF MESSAGE BUFFER 

.-LENGTH OF MESSAGE BUFFER 
.-EAI BIT WORD 

.•REWIND AND UNLOAD COMMAND 
.•NOT USED 
.-NOT USED 
:NOT USED 
.-NOT USED 



.•WRITE. ACK. CVC::1 COMMAND 
.-ADDRESS OF WRITE BUFFER 
.-MORE ADDRESS OF WRITE BUFFER 
.SIZE OF RECORD 



.-LOCAL TEXT MESSAGES FOR TEST 



CZTUXAO TU80 FRONT END PRT B 
TEST 6: MANUAL INTERVENTION 



8873 
8874 
887S 
8876 
8877 
8878 

8879 054»SSO 

8880 05A625 

8881 05A711 

8882 OSA7S2 

8883 05S0A6 

8884 055110 

8885 0S5U4 

8886 055223 

8887 055300 

8888 05536A 

8889 055430 

8890 055470 
055526 
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SEQ 216 



8891 
8892 

8893 055552 

8894 055562 
8895 

8896 055570 

8897 055642 

8898 055670 

8899 055732 

8900 055760 

8901 056023 
8902 

8903 
8904 
8905 
8906 
8907 

8908 056024 

8909 056026 

8910 056026 

8911 056032 

8912 056036 

8913 056042 

8914 056046 

8915 056050 

8916 056054 

8917 0S60S6 

8918 056060 

8919 056062 
8920 

8921 
8922 
8923 
8924 
8925 
8926 
8927 
8928 
8929 



123 
124 
127 
127 
045 
045 
045 
045 
103 
045 
111 
045 
115 

055570 
055760 

012 
012 
Oil 
Oil 
Oil 
000 



000000 



012701 
012721 
012721 
005021 
012721 
005021 
005021 
005011 
000207 



164 
123 
122 
122 
116 
116 
116 
116 
157 
116 
163 
116 
141 

055642 
056023 

123 
Oil 
061 
062 
063 



053770 
140206 
054000 

000006 



141 
123 
111 
111 
045 
045 
045 
045 
156 
045 
040 
045 
156 

055670 
000000 

105 
060 
Oil 
Oil 
Oil 



T38NE: 

T38URT: 

T38URL: 

T38ULE: 

T380NL: 

T380FL: 

T38MS4: 

T38nS5: 

T38SST: 

T38nS2: 

T38NSG: 

T38W0K: 

T38ID: 

MIKNU: 



1$: 
2$: 
5S: 
6S: 
9$: 
10S: 



.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 

.UORD 

.MORD 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 



Stand-alont Manual Inttrvtntlon Not Extcuttd* 

TSSR Not Corrtct Aftor WRITE. With WRITE PROTECT On' 

WRITE LOCKED Bit Not Stt In XSTO* 

WRITE LOCK ERROR Bit Not Stt In XSTO. Afttr AttCMpttd WRITE' 

XNXA ERROR Drivt Is StUl ON-LINE* 

%HU Drivt Is NOM OFF-LINE' 

XNXA Stt Drivt To On-Unt and At Or Btyond BOT* 

XNU Drivt Should Nou Rtuind and Go Off-lint' 

Conttnts Of TSSR Incorrtct Afttr REWIND And RELEASE' 

XNXATypt RETURN To Rtturn To MtnuXN* 

Is Writt-Prottcttd Tapt Nounttd* 

XNXA Drivt Is Writt Prottcttd* 

Manual Inttrvtntlon* 



1$.2S.5$.6$ 
9$.10$.0 

<12>' SELECT OPERATION FROM FOLLOWING OPTIONS: 



<12>' 



0 
1 
2 
3 



Display This Mtnu* 
Rtwind and Unload CoMnand Ttst* 
Writt Prottct Ttst* 
Rtturn to Diagnostic Suptrvlsor* 



.'LOCAL STORAGE FOR THIS TEST 



T38DAT: .WORD 
T38REST: 

SAVRE6 

NOV 

MOV 

NOV 

CLR 

nov 

CLR 
CLR 
CLR 
RTS 



fT38PACKET.R1 

ri 40206. (R1)« 

«T38TAD.(R1)« 

(RD* 

ff6..(R1)« 

(R1)« 

(R1)> 

(R1> 

PC 



:L06ICAL RESPONSE TO QUESTION 

.'SAVE THE REGISTERS 

.'START OF THE PACKET 

.'WRITE SUBSYSTEM HEM. WITH ACK.CVC^I 

.'ADDRESS OF DATA BLOCK 

.•EXTENDED ADDRESS 

.•SIZE OF DATA BLOCK IN BYTES 

.CLEAR BSELO AND BSELl 

.CLEAR SEL2 

.'CLEAR DATA AREA 

.•RETURN 



.'THIS ROUTINE PRINTS THE CONTENTS OF 

:THE 256 BYTE MESSAGE BUFFER RETURNED BY THE 

.•TUV-05. 

•INPUT: 



003102 



CZTUXAO TU80 FRONT END PRT 8 
TEST 6: MANUAL INTERVENTION 



8930 
8931 
8932 
8933 
893A 
8935 
8936 

8937 056064 

8938 05606A 

8939 056070 010005 

8940 056072 005737 

8941 056076 001001 

8942 056100 005001 

8943 056102 010103 

8944 056104 006100 

8945 056106 006101 

8946 056110 
056110 010546 
056112 010146 
056114 012746 
056120 012746 
056124 010600 
056126 104415 
056130 062706 

8947 056134 
056134 012746 
056140 012746 
056144 010600 
056146 10441 S 
056150 062706 

8948 0561 S4 010501 

8949 0561 i6 010300 

8950 056160 001403 

8951 056162 004737 

8952 056166 010005 

8953 056170 010S37 

8954 056174 011504 

8955 056176 022704 

8956 056202 001417 

8957 056204 010403 

8958 056206 042704 

8959 056212 000241 

8960 0562U 006004 

8961 0S6216 006004 

8962 056220 006004 

8963 056222 006004 

8964 056224 042703 

8965 056230 06040S 

8966 056232 010325 

8967 056234 020527 

8968 056240 001355 

8969 056242 013705 

8970 056246 012704 

8971 056252 
056252 012546 
0S6254 010446 
056256 012746 



L 1 

MACRO HI 200 29-nAR-83 13:32 PAGE 115-7 



SEQ 217 



RO LOU ORDER ADDRESS OF MESSAGE BUFFER 
R1 HIGH ORDER ADDRESS OF MESSAGE BUFFER 

NOTE: R1 IS IGNORED IF KTENABLE FLAG IS CLEAR 



T38MBP: 



910$: 



056366 
000003 



000010 

056433 
000001 



000004 

0202S2 
056534 
125252 

170377 



177760 



054462 

056534 
000001 



0S6S10 



SAVREG 


R0,R5 


:SAVE THE REGISTERS 


MOV 


;SAVE LOU ORDER ADDRESS 


TST 


KTENABLE 


.ADDRESS ABOVE 28K? 


BNE 


91 OS 


*BR IF YES 


CLR 


R1 


iSET HIGH ORDER ADDRESS TO 0 


MOV 


R1.R3 


.•SAVE HIGH ORDER ADDRESS 


ROL 


RO 


;SHIFT BIT15 TO C BIT 


ROL 


R1 


; SHI FT TO HIGH ORDER FOR PRINTOUT 


PRINTX 


«T38AS0.R1.R5 


;PRINT MESSAGE BUFFER ADDRESS 



PRINTX ffT38AS1 



.PRINT HEADER FOR CONTENTS 





MOV 


R5.R1 




MOV 


R3.R0 




BEQ 


913$ 




JSR 


PC.SETMAP 




MOV 


R0,R5 


913$: 


MOV 


R5,T38CNT 
(R5).R4 


911$: 


MOV 




CMP 


f1 25252 .R4 




BEQ 


912$ 




MOV 


R4.R3 




BIC 


f170377.R4 




CLC 




ROR 


R4 




ROR 


R4 




ROR 


R4 




ROR 


R4 




BIC 


#1 77760 ,R3 




ADD 


R4.R3 




MOV 


R3.(RS)» 




CMP 


R5.fT38EB 




BNE 


911$ 


912$: 


MOV 


T38CNT.R5 


915$: 


MOV 
PRINTX 


f1.R4 

fT38ASN.R4.(R5) 



COPY LOU ORDE?{ ADDRESS 
COPY HIGH ORDER ADDRESS 
BR IF NOT ABOVE 28K 
SETUP PAR ADDRESS IN RO 
GET PAR FORMAT ADDRESS ABOVE 28K 
HOLD ADDRESS 
GET BUFFER ENTRY 
CHECK FOR NO LOAD CONDITION 
BR. IF BUFFER WASN'T LOADED 
MAKE COPY 

ONLY BITS 11.10.9 AND 8 ARE SAVED 

CLEAR CARRY 

11 TO 10 BIT POSITION 

10 TO 9 BIT POSITION 

9 TO 8 BIT POSITON 

8 TO 7 BIT POSITION 

ONLY BITS 3.2.1 AND 0 ARE SAVED 

't)R*EH TOGEThcR 

PUT BACK IN BUFFER 

END OF BUFFER YET 

BR. IF NOT AT END YET 

PUT ADDRESS BACK 

START BYTE NUMBER AT ONE 

:PRT MEM BUFFER U/NEULINE 

MOV 
MOV 

tOM- 



MOV 


R5.-<SP) 


MOV 


R1.-<SP) 


MOV 


iT38AS0.-(SP) 


MOV 


#3.-{SP> 


MOV 


SP.RO 


TRAP 


C$PNTX 


ADD 


#10. SP 


MOV 


fT38AS1.-(SP) 


MOV 


#1.-(SP) 


MOV 


SP.RO 


TRAP 


C$PNTX 


ADD 


M.SP 



(R5)«.-(S^) 
R4--(SP) 



CZTUXAO TU8Q FRONT END PRT B 
TEST 6: MANUAL 

056262 
056266 
056270 
056272 

8972 056276 

8973 056302 

8974 056304 
056304 
056306 
056310 
056314 
056320 
056322 
056324 

8975 056330 

8976 056334 

8977 056336 

8978 056342 

8979 056344 

8980 0S6352 

8981 056354 

8982 056356 

8983 056362 

8984 056364 
8985 

8986 056366 

8987 056433 

8988 056471 

8989 056510 
8990 

8991 056534 

8992 056536 
056536 

056536 104401 



INTERVENTION 


012746 


000003 


010600 




104415 




062706 


000010 


005037 


056534 


000412 




012546 




010446 




012746 


056471 


012746 


000003 


AX AA 

010600 


104415 




062706 


000010 


AAf W 

005237 


Aff 0 V A 

056534 


005204 




020427 


AAA AAA 

000200 


003010 




023727 


056534 


001401 




AAA9K9 

00075} 




005037 


056SS4 


000733 




000207 






116 


045 


116 


045 


101 


045 


116 


000000 
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GLR 
BR 

920S: PRJNTX 



921$: 



925$: 
50$: 



INC 

INC 

CNP 

B6T 

CMP 

BEQ 

BR 

CLR 

BR 

RTS 



045 
045 
040 
045 



T38AS0: .ASCIZ 
T38AS1: .ASCIZ 
T38ASC: .ASCIZ 
T38ASN: .ASCIZ 

.EVEN 
TS8CNT: .WORD 

ENOTST 



T38(,NT 
921$ 

fT38ASC,R4«(R5>« 



.•CLEAR COUNTER 
;$KIP OTHER PRINT 
.•PRINT THE CONTENTS OF 



NOV 
NOV 
TRAP 



#3.-<$P) 
SP,RO 
C$PNTX 
flO.SP 



T38CNT :BUMP COUNTER 

; NUMBER OF THE NEXT 
5«.»128. ;0ONE ALL VET ? 

50$ ;BRANCH IF ALL DONE 
T38CNT #4 :DONE FOUR VET 

925$ ;BR. IF THREE DONE 

920$ :KEEP GOING 
T38CNT .-CLEAR COUNTER 

915$ .PRINT WITH NEW LINE 

PC ; RETURN 

*XNXA Mtssage Buffer Address = X01X05* 
'XNXA Message Buffer Contents:* 
*XA X04XA: X03' 
*XNXA ByteXD4XA: X03* 

.•COUNTER FOR PRINT 



HENORV BUFFER 

NOV (R5)*.-(SP) 

NOV R4.-(SP) 

NOV fT38ASC.-(SP> 

NOV f3«-(SP) 

NOV SP.RO 

TRAP C$PNTX 

ADO flO.SP 



L10073: 



TRAP C$ETST 



CZ1UXA0 TU80 FRONT END PRT B 
TEST 7: CONFIGURATION TYPEOUT 

8994 

8995 

8996 

8997 

8998 

8999 

9000 

9001 

9002 

9003 

9004 

9005 

9006 

9007 

9008 

9009 

9010 

9011 

9012 

9013 

9014 

V015 

9016 

9017 

9018 

9019 

9020 

9021 

9022 

9023 

9024 

9025 056540 
056540 

9026 056540 005037 002170 

9027 056544 005037 003100 

9032 056550 005737 002162 

9033 056554 001403 

9034 056556 012700 057773 

9035 056562 000402 

9036 056564 012700 060432 

9037 056570 004737 017372 

9038 0S6S74 004737 021366 

9039 056600 103402 

9040 056602 000137 057202 

9041 056606 022737 000001 

9042 056614 001402 

9043 056616 000137 057202 

9044 056622 

9045 056622 004737 016630 

9046 056626 103405 

9050 056630 010001 

9051 056632 
056632 104455 
056634 001275 
056636 003550 
056640 011656 

9052 056642 
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.SBTTL TEST 7: CONFIGURATION TYPEOUT 

THIS IS A STANDALONE ROUTINE THAT PRINTS OUT ON THE CONSOLE TERNINAl 
THE CONFIGURATION OF THE N74S4 NODULE AND TUV05 SUBSYSTEM. SPECIFICALLY, 
THE FOLLOWING iNFOMrfATION IS PRESENTED: 



1.0 MICROCODE REVSION LEVEL OF THE N74S4, 

2.0 NUMBER OF TAPE TRANSPORT . CONNECTED TO THE CONTROLLER, 

3.0 UNIT SELECT CODE AND STATE (ONLINE/OFFLINE. WRITE ENABLED/PROTECTED) 
OF EACH CONNECTED TRANSPORT. 

THE OPERATOR IS EXPECTED TO READ THE PRINTOUT AND VERIFY THAT IT MATCHES 
THE ACTUAL CONFIGURATION AT HAND. IF, FOR EXAMPLE. THE PROGRAM INDICATES 
THAT IT "SEES" TWO TRANSPORTS CONNECTED WHEN IN FACT ONLY ONE IS PRESENT, 
THE OPERATOR MUST INTERPRET THIS AS AN ERROR AND ATTEMPT TO FIND THE 
CAUSE (SAD CABLE. FAULTY UNIT-SELECT DECODING IN THE TRANSPORT, ETC.). 
CSINCE THE CONTROLLER CAN ONLY ACCESS UNIT 0 IF IT IS IN "STANDARD" 
MODE. THE PROGRAM WILL FORCE THE MODULE INTO EXTENDED MODE VIA THE 
WRITE SUBSYSTEM MEMORY COMMAND IN ORDER TO SCAN FOR CONNECTED TRANSPORTS. 3 

THIS ROUTINE, WHEN ITS ACTIONS ARE COMPLEiED, WILL EXIT BACK TO THE 
DIA<^'<OSTIC SUPERVISOR SO THAT IF ADDITIONAL UNITS (CONTROLLERS) ARE 
SELECTED (E.G.. FROM THE INITIAL STARTUP DIALOG), THE ROUTINE WILL BE 
REENTERED SO THAT HHEIR CONFIGURATIONS CAN BE PRINTED. 



T7: : 

.•CLEAR FATAL ERROR'flAG 
■ KT11 

IS THIS FIRST TEST IN SEQUENCE ? 

BR, IF FIRST TEST 

"TEST NOT EXECUTED" 

JUMP OUT OF TEST IF NOT 

TEST ID MESSAGE 

DO THE COMMON SETUP 

IS MANUAL INTERVENTION ALLOWED? 

BR, IF MANUAL INTERVENTION ALLOWED 

JUMP TO OUT IF NOT 

IS THIS THE FIRST TEST IN SEQ 

BR, IF FIRST TEST 

JMP IF IT WASN'T 



10S: 
1U: 



002162 15$: 
20$: 



BGNTST 




CLR 


FATFLG 


CLR 


KTFLG :H0 


TST 


TSTCNT 


BEQ 


10$ 


MOV 


fT39NE,R0 


BR 


11$ 


MOV 


fTST39ID,R0 


JSR 


PC.TSTSETUP 


JSR 


PCCHKMAN 


BCS 


15$ 


JMP 


64$ 


CMP 


#1 .TSTCNT 


BEQ 


20$ 


JMP 


64$ 


JSR 


PCSOFINIT 


BCS 


25$ 


MOV 


RO.RI 


ERRDF 


ERRNO.SFIERR.SF IMSG 



25$; CKLOOP 



;D0 SOFT INIT OF CONTROLLER 

;BR IF SOFT INIT » OK 

.-SAVE CONTENTS OF TSSR 

:DEVICE FATAL ERROR DURING INIT 

TRAP 
.WORD 
.WORD 
WORD 

ilQQP IF SEUCTED 



CSERDF 
701 

SFIERft 
SFIMSG 



CZTUXAO TU80 FRONT END PRT B 
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SEQ 



056642 


104406 










9053 056644 


012704 


057720 




NOV 


fT39PK2.R4 


9054 056650 


004737 


010322 




JSR 


PC.URTCHR 


905S 056654 


103405 






BCS 


SOS 


9059 056656 


010001 






NOV 


r6,ki 


9060 0S6660 








ERRHRD 


ERRNO.URTNSG. 


056660 


104456 








056662 


001276 










056664 


004754 










056666 


011656 










9061 056670 






50$: 


CKLOOP 




056670 


104406 








9062 056672 


013701 


057242 


130S: 


NOV 


T39BFR«4.R1 


9063 056676 


042701 


177700 




BIC 


f 1 77700, Ri 


9064 056702 


01C137 


060370 




NOV 


R1,T39RL 


9065 056706 








PRINTX 


#T39NCLJ39RL 


056706 


013746 


060370 






056712 


012746 


060313 








056716 


012746 


000002 








056722 


010600 










056724 


104415 










056726 


062706 


000006 








9066 056732 


004737 


016630 




JSR 


PC.SOFINIT 


9067 056736 


103405 






BCS 


140$ 


9071 056740 


010001 






NOV 


R0.R1 


9072 056742 








ERRDF 


ERRNO.SFIERR, 


056742 


104455 








056744 


001277 










056746 


003550 










056750 


011656 










9073 056752 






140$: 


CKLOOP 




056752 


104406 








9074 056754 


012704 


057720 




NOV 


fT39PK2,R4 


9075 056760 


004737 


010322 




JSR 


PC.URTCHR 


9076 056764 


10340S 






BCS 


150$ 


9080 056766 


010001 






NOV 


RO.RI 


9081 056770 








ERRHRD 


ERRNO.yRTNSG, 


056770 


104456 








056772 


001300 










056774 


004754 










056776 


011656 










9082 OS7000 






150$: 


CKLOOP 




057000 


104406 








9083 057002 


005037 


002150 




CLR 


UNITN 


9084 












9085 057006 


016501 


000000 


190$: 


NOV 


TSSR(RS),R1 


9086 057012 


032701 


000100 




BIT 


fOFL.RI 


9087 057016 


001414 






BEQ 


200$ 


9088 057020 








PRINTX 


fT390F2. UNITN 


057020 


013746 


002150 






057024 


012746 


060052 








057030 


0127<6 


000002 








057034 


010600 










057036 


104415 










057040 


062706 


000006 








9089 0S7044 


000137 


057162 




JNP 


63$ 


9090 0570S0 






200$: 


PRINTX 


fT390N2 .UNITN 



TRAP CSCLPI 

.•SUBROUTINE NEEDS PACKET ADDRESS 

; ISSUE WRITE CHARACTERISTICS 

;BR. IF CONNAND ISSUED OK 

.-SAVE CONTENTS OF TSSR 

.•WRITE CHARACTERISTISC FAILED 

TRAP CtERHRD 
.WORD 702 
.WORD WRTNS6 
.WORD SFINSG 

.LOOP IF SELECTED 

TRAP C$CLP1 
;PICK UP THE RES. BYTE CNTR AREA 
;ONLY LEAVE MICROCODE REV LEVEL 
:LOAD UP REV LEVEL 
.-'MICROCODE REVISION LEVEL «OOOXXX" 



NOV 
NOV 
NOV 
NOV 
TRAP 
ADD 

:D0 SOFT INIT OF CONTROLLER 

;BR IF SOFT INIT - OK 

.•SAVE CONTENTS OF TSSR 

.'DEVICE FATAL ERROR DURING INIT 

TRAP 
.WORD 
.WORD 
.WORD 
.•LOOP IF SELECTED 

TRAP 

.•SUBROUTINE NEEDS PACKET ADDRESS 
; ISSUE WRITE CHARACTERISTICS 
:BR. IF CONNAND ISSUED OK 
.'SAVE CONTENTS OF TSSR 
.•WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

;LOOP IF SELECTED 

TRAP 

;SET TO DRIVE 0 

:6ET TSSR STATUS 

.•CHECK FOR OFF-LINE 

;6R. IF URIVE IS ON-LINE 

;'^RIVE NUMBER XX IS OFF-LINE" 

NOV 
NOV 
NOV 
MOV 
TRAP 
A>D 

.•DO NOT TRY TO GET ANYNORE INFO. 
.."DRIWP MtHNPR M IS ON-l INF" 



T39RL,-(SP) 
#T39MCL.-(SP) 
f2,-(SP> 
SP.RO 
C$PNTX 
f6.SP 



C$ERDF 

703 

SFIERR 
SFINSG 



CSCLPI 



C$ERHRD 
704 

WRTMSG 
SFINSG 

C$CLP1 



UNITN.-(SP) 
fT390F2,-{SP) 
#2.-(SP) 
SP.RO 
CSPNTX 
f6.SP 
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SEQ 221 



0S7050 

0S7060 
0S7064 
057066 
057070 

9091 057074 

9092 057100 

9093 057104 

9094 057106 
057106 
057112 
057116 
057122 
057124 
057126 

9095 057132 

9096 057134 
057134 
057140 
057144 
057150 
057152 
057154 

9097 057160 

9098 057162 
057162 
057166 
057172 
057174 
057176 

9099 057202 
057202 
057204 

9100 
9101 
9102 
9103 
9104 
9105 
9106 

9107 057206 
91 09 057210 

9111 057220 

9112 057220 

9113 057222 

91 14 057224 

9115 057226 

9116 057230 

9117 057230 

9118 057231 

9119 057232 

9120 057234 

9121 057236 
9122 

9123 

9125 057712 



013746 
012746 
012746 
010600 
104415 
062706 
013701 
032701 
001013 

013746 
012746 
012746 
010600 
104415 
062706 
000413 

0'J746 
012746 
012746 
010600 
104415 
062706 
000400 

012746 
012746 
010600 
104415 
062706 

104432 
001254 



000000 



140006 
057230 
000000 
000012 

000 
000 
000000 
000000 



002150 
060116 
000002 



000006 
057244 
000004 



002150 
060234 
000002 



000006 



C02150 
060161 
000002 



000006 



057770 
000001 



000004 



NOV T39BFR*6,R1 

BIT #BIT2,R1 

BNE 21 OS 

PRINTX fT39UPN,UNlTN 



210$: 



BR 

PRINTX 



63t 

fT39yRT.UNITN 



63$: 



BR 63$ 
PRINTX fT39NFL 



64$: 



EXIT TST 



NOV 

NOV 

NOV 

NOV 

TRAP 

ADD 

:READ EXTENDED STATUS (XSTO) 
;IS DRIVE UTITE PROTECTED 
:BR. IF WRITE PROTECTED 
.•"DRIVE NUMBER IS NOT URT PRO" 

NOV 
NOV 
NOV 
NOV 
TRAP 
ADD 

:SK1P OVER 

; "DRIVE NUNBER XX IS URT PRO" 

NOV 
NOV 
NOV 
NOV 
TRAP 
ADD 

:BR, IF NO MORE DRIVES 
;NEU LINE 

NOV 

NOV 

NOV 

TRAP 

ADD 

.EXIT THIS SECTION 

TRAP 
.UORD 



.LOCAL TEXT MESSAGES FOR TEST 



: LOCAL STORAGE FOR THIS TEST 



UNITN.-(SP; 

#T390N2.-(SP) 

#2.-<SP) 

SP.RO 

C$PNTX 

f6,SP 



UNITN,-(SP) 

#T39WPN.-(SP) 

#2.-(SP) 

SP.RO 

CSPNTX 

f6.SP 



UNITN.-(SP) 

fT39WRT.-(SP) 

f2.-(SP) 

SP.RO 

CSPNTX 

«6.SP 



#T^9NFL.-(SP) 

fl.-(SP) 

SP.RO 

CSPNTX 

#4.SP 

CSEXIT 
LI 0074- . 



T39DLY: .WORD 
.BLKB 
T39PACICET: 

.WORD 
.WORD 
.WORD 
.WORD 



T39TAD 
T39BS0 
r39BSl 
T39BS2 



.BYTE 
.BYTE 
.WORD 
.WORD 
T39BFR: .BLKW 



10-<.-TUV2A87> 

140006 
T39TAD 
0 

10. 

0 
0 
0 
0 

150. 



: DELAY COUNTER FOR TEST 

.•COMMAND PACKET FOR TEST 

: WRITE SUBSYSTEM MEM. CMD. ACK.CVC»1 

.•ADDRESS OF CHARACTERISTICS BLOCK 

;START|NG VALUE OF BLOCK SIZE 
: CHARACTERISTICS DATA BLOCK 
;BSELO BYTE 
:BSEL1 BYTE 
:BSEL1 WORD 
;DATA 

: MESSAGE BUFFER 



.BLKB 10-<.-TUV2At7> 
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SEQ 222 



9127 057720 

9128 057720 

9129 057722 
9150 057724 
9131 057726 
9132 

9133 

9134 057730 

9135 057730 

9136 057732 

9137 057734 
91 3« 057736 
9140 057740 

9142 0S77S0 

9143 057752 
9144 

9145 
9146 

9148 057754 

9150 057760 

9151 057762 

9152 057764 

9153 0S7766 
9154 

9155 
9156 
9157 
9158 
9159 
9160 
9161 
9162 
9163 
9164 

9165 CS7770 

9166 057773 

9167 060052 

9168 060116 

9169 060161 

9170 060234 

9171 060315 
9172 

9173 060370 

9174 

9175 

9176 

9177 

9178 

9179 

9180 

9181 060372 

9182 060374 

9183 060374 

9184 060400 

9185 060404 

9186 060410 

9187 060414 



U00O4 
057730 
000000 
000012 



057236 
000000 
000400 
000000 

140012 
000000 



140005 
000000 
000000 
000400 



045 


116 


123 


164 


045 


116 


045 


116 


045 


116 


045 


116 


045 


116 



000000 



000000 



012701 057220 

012721 140006 

012721 057230 
005021 



T39PK2: 



.WORD 
.WORD 
.WORD 
.WORD 



T39DTA: 

.WORD 
.WORD 
.WORD 

T39EAI: .WORD 
.BLKB 

T39PK5: .WORD 
.WORD 



140004 
T39DTA 
0 

10. 



T39BFR 
0 

256. 
0 

10-<.-TUV2At7> 

140012 

0 



WRITE TAPE PACKET 



.BLKB 
T39PK4: .WORD 
T39WR: .WORD 
.WORD 
T39SIZ: .WORD 



10-<.-TUV2Al7> 

140005 

0 

0 

256. 



; COMMAND PACKET FOR TEST 

.•WRITE CHARA. NEM. CMND., ACK.CVCsl 

; ADDRESS OF SELECT DATA BLOCK 

.•STARTING VALUE OF BLOCK SIZE 



; SELECT DATA BLOCK 
:ADDRESS OF MESSAGE BUFFER 

.•LENGTH OF MESSAGE BUFFER 
:EAI BIT WORD 

; MESSAGE BUFFER RELEASE COMMAND 
:NOT USED 



WRITE, ACK. CVCsl COMMAND 
ADDRESS OF WRITE BUFFER 
MORE ADDRESS OF WRITE BUFFER 
SIZE OF RECORD 



; LOCAL TEXT MESSAGES FOR TEST 



000 T39NFL: 

141 T39NE: 

045 T390F2: 

045 T390N2: 

045 T39WRT: 

045 T39WPN: 

045 T39MCL: 

TS9RL: 



.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 

.WORD 

.EVEN 

.EVEN 



•IN* 

*Stmd-alont Configuration Typ«out Not Executed* 

*XNXA Drive NuMber XD2SA Is Off-Line* 

*XNSA Drive Nuaber SD2U Is On-Llne* 

*SNU Drive Nuaber XD2XA Is Write Protected* 

*XNXA Drive Nuaber XD2XA Is NOT Write Protected' 

*XNXA H7454 Microcode Revision Level »t02* 



;LOCAL STORAGE FOR THIS TEST 



T39DAT: .WORD 
T39REST: 

SAVRE6 
MOV 
NOV 
flOV 



fT39PACKET.R1 

#140006. (R1)* 
fT39TA0«(R1)« 
(R1)» 



.•LOGICAL RESPONSE TO QUESTION 

.•SAVE THE REGISTERS 

: START OF THE PACKET 

;WRITE SUBSYSTEM HEM. WITH ACK.CVC^I 

.•ADDRESS OF DATA BLOCK 

.MTfiiftfft AftftRPSS 
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SCO ^25 



060416 012721 000006 

060422 00S021 

060424 005021 

060426 00S011 

060430 000207 



9188 
9189 
9190 
9191 
9192 
9193 
9194 
9195 
9196 
9197 

9198 060432 
9199 
9200 



9201 



103 



060460 
060460 
060460 104401 



MOV 
CLR 
CLR 
CLR 
RTS 



f6.,(R1>* 

(R1)« 

(R1)« 

(•1) 

PC 



;SIZE OF DATA BLOCK IN BYTES 

.•CLEAR BSELO AND BSELI 

; CLEAR SEL2 

: CLEAR DATA AREA 

.•RETURN 



LOCAL TEXT MESSAGES FOR TEST 



157 



156 TST39JD: .ASCIZ 'Conf {guratlon Typeout' 

.EVEN 
ENDTST 



Li 0074: 



TRAP 



CtETST 



CZTUXAO TU80 fRONT END PRT B 
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9203 

9204 

920S 

9206 

9207 

9208 

9209 

9210 

9211 

9212 

9213 

92U 

921 S 

9216 

9217 

9218 

9219 

9220 

9221 

9222 

9225 

9224 

922S 

9226 

9227 

9228 

9229 

9230 

9251 

9252 

9255 

9254 

925S 

9256 

9257 

9258 

9259 



9240 
9241 
9246 
9247 
9248 
9249 
9250 
9251 
9252 
9255 
92^4 
92SS 
9256 
9257 
9258 
9259 
9260 
9264 



060462 
060462 
060462 
060466 
060472 
060476 
060500 
060504 
060506 
060512 
060516 
060522 
060524 
060550 
060556 
060540 
060544 
060550 
060552 
060554 
060554 



005057 
005057 
005757 
001405 
012700 
000402 
012700 
004757 
004757 
105402 
000157 
022757 
001402 
000157 
004757 
105405 
010001 

104455 



P 2 

HACRO N1200 29-mR-85 15:52 PAGE 117 



.SBTTL TEST 8: SCOPE LOOPS 



SEQ 224 



002170 
005100 
002162 

061675 

061740 
017372 
021566 

061156 
000001 

061156 
016650 



U: 
100S: 



002162 1021: 



2$: 



THIS IS A STANDALONE ROUTINE PROVIDING A NlMBER OF TIGHT '*SCOPE 
LOOPS" USEFUL FOR DEBUGGING BASIC REGISTER ACCESS PROBLEMS WITH 
THE N7454 NODULE. THESE SCOPE LOOPS CAN BE USED UHEN THE NORMAL 
'tOOP ON ERROR" OR 'lOOP ON TEST (SUBTEST)" FACILITIES DON'T 
SEEM TO ALLOM THE OPERATOR TO ZERO IN A PROBLEM IN THE EARLY 
TESTS (I.E. THE HARDWARE NAY NOT BE RESPONDING TO A REGISTER 
ACCESS, CAUSING A BUS ERROR TRAP. EVEN THOUGH THE DEVICE ADDRESS 
SELECTED BY THE PROGRAN NATCHES THE CONFIGURATION SET UP IN THE 
HARDWARE DIP SWITCHES). THE FOLLOWING MENU OF SCOPE LOOPS ARE 
AVAILABLE: 

CODE SCOPE LOOP 

0 HELP. DISPLAY THIS NENU. 

1 TSBA READ ACCESS 

2 TSSR READ ACCESS 

5 INITIALIZE (TSSR WRITE ACCESS) 

4 TSDB HIGH BYTE WRITE ACCESS 

5 TSDB LOW BYTE WRITE ACCESS 

6 TSSR BYTE WRITE (&ELF-TEST) 

7 RETURN TO DIAGNOSTIC SUPERVISOR 

FOR SCOPE LOOPS THAT WRITE INTO REGISTERS, THE PROGRAN PRONPTS 
THE OPERATOR FOR THE DATA TO BE WRITTEN. TYPING <RETURN> CAUSES 
AN EXIT FRON THE SCOPE LOOP BACK TO NENU LEVEL. 



BGNTST 






T8:: 


CLR 


FATFL6 




.'CLEAR FATAL ERROR FLAG 


CLR 


KTFLG 


:HOL0 OF KT11 


TST 


TSTCNT 




;IS THIS FIRST TEST IN RUN ? 


BEQ 


IS 




:CONTINUE TEST IF FIRST IN RUN 
;"TEST NOT EXECUTED" 


NOV 


»T40NE.R0 




BR 


100S 




.JUST EXIT IF NOT 


NOV 


fTST401D,R0 




;TEST ID NESSAGE 


JSR 


PC.TSTSETUP 




:D0 THE CO!«ON SETUP 


JSR 


PCCHKNAN 




:SEE IF NANUAL INTERVENTION ALLOWED 


BCS 


102S 




;CARRY SET IF INTERVENTION ALLOWED 


JNP 


64S 




;EXn IF NO NANUAL INTERVENTION 


CNP 


#1 .TSTCNT 




;WAS THIS THE FIRST TEST IN SEQ 


BED 


2S 




:BR. IF IT WAS 


JNP 


64$ 




;JNP TO END OF TEST 


JSR 


PC.SOFINIT 




;D0 A SOFT INIT 


BCS 


5$ 




:BRANCH IF OK 


NOV 


R0.R1 




.-CONTENTS OF TSSR REGISTER 


ERROF 


ERRNO.SFIERR.SFINSG 


; REPORT FATAL ERROR 



JfiAP CUBD! 



CZTUXAO lUftO FROMT END PRT B 
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9270 
9271 



060SS6 
060S60 
060562 

9265 060564 

9266 060570 

9267 06057<> 

9268 060600 

9269 060602 
060604 
060606 
060606 
060612 

9272 0606U 

9273 060620 

9274 060626 

9275 060630 

9276 060634 

9277 060642 

9278 060646 

9279 060652 

9280 060656 

9281 060662 

9282 060666 
060666 
060672 

9283 060674 

9284 060676 

9285 060702 

9286 060704 

9287 060706 

9288 060710 

9289 060712 

9290 060714 

9291 060716 

9292 060720 
9293 

9294 

9295 060722 

9296 060722 

9297 060726 
9298 

9299 060730 

9300 060730 

9301 060734 
9302 

9303 

9304 060736 

9305 060742 

9306 060744 

9307 060750 
9308 

9309 

9310 060752 

9311 060752 

9312 060756 

9313 060760 

9314 060764 



001441 
003550 
011656 
012700 
012701 
004737 
005700 
001760 
010004 

012700 
104441 
005037 
032737 
001005 
005237 
052737 
012701 
011137 
012721 
011137 
012711 

012700 
104441 
006304 
000174 
060544 
060722 
060730 
060736 
060752 
060766 
061002 
061156 



016500 
000775 



016500 
000775 



004737 
010001 
010165 
000775 



004737 
010001 
110165 
000775 



061170 
000010 
021144 



000340 

061162 
000100 

061162 
000100 
000060 
061164 
061070 
061166 
000340 

000000 



060702 



5$: 



3$: 



177560 
177560 



4S: 



6S: 



177776 

000000 

021062 
000000 

021062 
177777 



10S: 
12$: 



15$: 
18$: 



20$: 
22$: 

25$: 
27$: 



NOV 
NOV 
JSR 
TST 
BEQ 
NOV 
SETPRI 



CLR 
BIT 
BNE 
INC 
BIS 
NOV 
NOV 
NOV 
NOV 
NOV 
SETPRI 



ASL 

JNP 

.yORD 

.yORD 

.WORD 

.yORD 

.WORD 

.WORD 

.WORD 

.WORD 



NOV 
BR 



NOV 
BR 



JSR 
NOV 
NOV 
BR 



JSR 
NOV 
NOVB 

BR 



fSCHENU.RO 

f8.,it1 

PCGETSEL 

RO 

2$ 

R0.R4 
fPRI07 



TTION 

flOO.ifTTICSR 
4S 

TTION 

«100,B#TTICSR 

#TTIVEC,R1 

(RD.TVECSAV 

«60S.(R1}> 

(R1)«TPRISAV 

fPRI07,(R1) 

#PRIOO 



R4 

B6$(R4) 

?$ 

10$ 

15$ 

20$ 

25$ 

30$ 

35$ 

65$ 



TSBA(R5),R0 
12$ 



TSSR(R5).R0 
18$ 



PC.6ETPAT 
RO.RI 

R1.TSSR(R5) 
22$ 



PC.GETPAT 
R0.R1 

R1.TSDBH(R5) 
27i 



SEO 2}b 



.WORD 801 
.WORD SPIERR 
.WORD SPINSG 

:NENU OF SCOPE LOOP SELECTIONS 

:NAXINUN ALLOWED SELECTION 

:G0 GET THE OPERATORS SELECTION 

;WAS ZERO SPECIFIED ? 

.REPEAT NENU IF YES. 

.SAVE THE NENU SELECTION 

.•RAISE THE PRIORITY 

NOV «PRI07.R0 
TRAP C$SPRI 

.ASSUNE INTERRUPTS ARE ENABLED 

;ARE TTJ INTERRUPTS ON ? 

.•BRANCH IF YES 

.'FLAG SET IF INTERRUPTS OFF 

.•ENABLE INTERRUPTS 

; START OF TTI VECTORS 

.-SAVE THE CURRENT TTI VECTOR 

:SET NEW INTERRUPT ROUTINE 

;SAVE THE VECTOR PRIORITY 

;USE PRIORITY SEVEN 

.•LOWER INTERRUPT BR LEVEL 

NOV fPRIOO.RO 
TRAP CSSPRI 

; CONVERT TO WORD OFFSET 

:JUNP TO PROPER LOOP 

.•RETYPE THE NENU 

;TS6A READ ACCESS 

.'TSSR READ ACCESS 

;TSSR WRITE ACCESS 

.•TSDB HIGH BYTE WRITE ACCESS 

;TSDB low BYTE WRITE ACCESS 

;TSSR BYTE WRITE (SELF-TEST) 

; LEAVE THE TEST 



;READ TSBA REGISTER 
;LOOP UNTIL HALTED 



.READ TSSR REGISTER 
;LOOP UNTIL STOPPED 



:READ THE DATA PATTERN 
.DATA PATTERN FOR LOOP 
;WRITE DATA TO TSSR 
:LOOP 



READ THE DATA PATTERN 

DATA PATTERN FOR LOOP 

WRITE THE DATA TO TSDB. HIGH BYTE 

LOOP UMTU STQPPgP 



H 2 
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9315 
9516 

9317 060766 

9318 060766 

9319 060772 

9320 060774 

9321 061000 
9322 

9323 061002 

9324 061006 

9325 061010 

9326 061 OU 
0610U 
061020 
061022 
061026 
061030 
061034 
061036 
061042 

9327 061044 
9328 

9329 

9330 061052 

9334 061054 
061054 
061056 
061060 
061062 

9335 061064 
9336 

9337 
9338 
9339 
9340 
9341 

9342 061070 

9343 061072 

9344 061076 

9345 061102 

9346 061106 

9347 061110 
93A8 061116 
93 :V 061122 

9350 061130 

9351 061136 

9352 061142 

9353 061144 

9354 061152 

9355 061154 
9356 

9357 061156 

9358 061156 

9359 061156 
0611S6 
061160 

9560 



004737 
010001 
110165 
00077$ 

004737 
010001 
110165 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
036527 



001356 

104455 
001442 
061754 
011656 
000137 



010046 
113700 
042700 
122700 
001021 
012766 
005066 
013737 
013737 
005737 
001403 
042737 
012600 
000002 



104432 
000664 



021062 
177776 

021062 
000000 
000250 
002116 
177772 
177756 
000000 



000200 



177562 
000200 
00001 S 

060544 
000004 
061164 
061166 
061162 



30$: 

32t: 

35S: 
37$: 



JSR 
NOV 

nova 

BR 

JSR 
NOV 

mvB 

DELAY 



Pr .GETPAT 
R0,N1 

R1 .TSDB(RS) 
32$ 

PC. GETPAT 
R0.R1 

R1.TSSR(R5) 
250 



000200 



BIT 



TSSR(RS),fSSR 



BNE 37$ 

ERRDF ERRN0,T40NSR,SFIHSG 



JMP 



200 



.•PROCESS CONSOLE INTERRUPTS 



60$: 



000002 

000060 
000062 



000100 177560 



61$: 



NOV 

NOVB 

BIC 

CNPB 

BNE 

NOV 

CLR 

NOV 

NOV 

TST 

BEQ 

BIC 

NOV 

RTI 



64$: 
63$: 

65$: EXIT 



RO.-(SP> 

atTTIBPR.RO 

«200.R0 

f1S.R0 

61$ 

f2$.2(SP) 
4(SP) 

TVECSAV.a#TTIVEC 

TPRISAV.a#TTIVEC»2 

TTION 

61$ 

flOO.atTTICSR 
(SP)«.RO 



TST 



SEQ 226 



;READ THE DATA PATTERN 
.•DATA PATTERN FOR LOOP 
:IMITE DATA TO TSSR. LOV BYTE 
.LOOP UNTIL HALTED BY OPERATOR 

;PICK UP THE PATTERN FRON DPR 
•STORE IN R1 

iuRITE BYTE TO TSSR. THIS STARTS NDIAG 
.•WAIT 2S00US 

NOV f250.(PC)« 
.WORD 0 

NOV L$DLY.(PC)« 
.UORD 0 
DEC -6(PC) 
BNE .-4 
DEC -22(PC) 
BNE .-20 
.•CHECK FOR READY SET. IF A TRAP OCCURS 
.-THE TSSR WAS '>I0T BACK TO THE BUS" 
:IN TINE. 

:BR. IF SSR WAS SET (GOOD) KEEP LOOPING 
;PRINT DEVICE FATAL ^RROR NESSAGE 

TRAP CSERDF 
.UORD 802 
.WORD T40NSR 
.WORD SFINSG 

:G0 TO SUPERVISOR ETC. 



.•SAVE WORK REGISTER 

;6ET THE OPERATOR INPUT 

.•STRIP OFF PARITY BIT 

.•IS IT A CARRIAGE RETURN ? 

.•JUST EXIT IF NOT 

.•RETURN TO NASTER NENU 

: FORCE PRIORITY ZERO 

.•RESTORE SUPERVISOR VECTOR 

jRESTORE SUPERVISOR PRIORITY 

;ARE SUPERVISOR INTERRUPTS ENABLED ? 

.•BRANCH IF YES 

:TURN OFF TTI INTERRUPTS 

.•RESTORE REGISTER 

;RETURN FRON INTERUPT 



;EXIT THE TEST 



TRAP C$EXn 
.WORD LI 0075- . 



C2TUXA0 TU80 FRONT END PRT B 
TEST 8: SCOPE LOOPS 

9361 
9362 
9363 
9364 

9365 061162 000000 

9366 061164 000000 

9367 061166 000000 
9368 

9369 
9370 
9571 
9372 
9373 
9374 

9375 061170 061220 061273 

9376 061204 061472 061 530 
9377 

9378 

9379 061220 

9380 061273 

9381 061321 

9382 061345 

9383 061371 

9384 061433 

9385 061472 

9386 061530 

9387 061567 

9388 061632 

9389 061633 

9390 061673 

9391 061740 

9392 061754 
9393 

9394 062044 
062044 

062044 104401 



012 


123 


012 


Oil 


Oil 


061 


Oil 


062 


Oil 


063 


Oil 


064 


Oil 


065 


Oil 


066 


Oil 


067 


000 




124 


171 


123 


164 


123 


143 


123 


123 
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; LOCAL STORAGE FOR THIS TEST 



SEQ 227 



061321 
061567 



TTION: 

rvECSAV: 

TPRISAV: 



.UOKd 0 
.WORD 0 
.UORD 0 



;WORD SET IF SUPERVISOR TTI INTEII OFF 
.SAVE TTI VECTOR 
?SAVE TTI PRIORITY 



;NENU FOR OPERATOR INPUT FOR SCOPE LOOPS 



SCMENU: 



105 1$: 

060 2S: 

Oil 3S: 

Oil 4S: 

Oil 5$: 

Oil 6S: 

Oil 7S: 

Oil 8t: 

Oil 10$: 
11$: 

160 12$: 

141 T40NE: 

157 TST40ID; 

122 T40NSR: 



.EVEN 
.UORD 
.UORD 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.ASCIZ 

.EVEN 

ENDTST 



1$,2$,3$,4$,5$.6$ 
7$,8$J0$J1$J2$.0 



<12>*SELECT SCOPE LOOP FROM FOLLOWING OPTIONS:* 



<12>' 
t 



OUplay Thfs Mtnu* 
TS8A Rtad Accttt* 
TSSR R««d Accttt* 
InltltMxt (TSSR Uritt Accttt)* 
TSDB High Bytt Uritt Accttt* 
TSDB LOM Bytt Uritt Accttt* 
TSSR Uritt Bytt (Stlf Tttt)* 
Rtturn to Diagnottic Suptrvltor* 



*Typt RETURN To Stop Scopt Loopt* 
*Stfnd-tlont Scopt Loopt Not Extcuttd* 
.ASCIZ * Scopt Loops* 

*SSR Falltd To Stt Afttr TSSR Uritt Bytt And 10»t DtUy* 



L10075: 



TRAP C$ETST 



CZTUXAO TU80 FRONT END PRT B 
DISPLAY BREAKPOINT SETTINGS 



10469 

10474 

10480 

104B1 

10482 

10483 

10484 

10485 

10486 

10487 

10488 

10489 

10490 

10491 

10492 

10495 
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SEQ 228 



10494 
10495 



10496 



10497 



10498 



066644 
066644 
066646 

066646 
066646 
066650 
066652 
066654 
066656 
066656 
066660 
066662 
066664 
066666 
066666 
066670 
066672 
066674 
066676 
066700 



.SBTTL HARDWARE PARAMETER CODING SECTION 

THE HARDUARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
UITH THE OPERATOR. 



066700 

10499 066700 

10500 066727 

10501 066753 
10502 
10503 



000015 



000031 
066700 
160000 
177776 

001031 
066727 
000000 
000776 

002032 
066753 
000340 
000000 
000007 



104 

111 
111 



LSHARD:: 



66NHRD 

.WORD Ll0076-LtHARD/2 



105 
116 
116 



L10076: 
126 HPMI: 
124 HPM2: 
124 HPM3: 



6PRMA 

.WORD 

.WORD 

.WORD 

.WORD 

6PRMA 

.WORD 

.WORD 

.WORD 

.WORD 

GPIWD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

ENONRD 

.EVEN 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 



HPM1 ,0.OJ60000.177776,YES 

TICODE 

HPM1 

TILOLIN 

TIHILIM 

HPN2,2,0,0.776,YES 

TSCODE 

HPN2 

TfLOLIM 

UHILIM 

HPM3,4,0.340.0.7.VES 

TICODE 

HPM3 

340 

ULOLIM 
TSHILIM 



*0EVICE ADDRESS (TSSR) * 
'INTERRUPT VECTOR ' 
'INTERRUPT PRIORITY 



;6ET TSBA/rSDB REGISTER ADDRESS. 



;6ET VECTOR ADDRESS. 



;6ET INTERRUPT PRIORITY, 



CZTUXAO TU80 FRONT END PRT B MACRO ni200 
SOnUARE PARAMETER COOING SECTION 



10S0S 
10506 
10507 
10508 
10509 
10510 
10511 
10512 
10513 
10514 
10515 



10516 



10517 



10518 
10519 
10520 



067004 
067004 
067006 
067006 
067006 
0670 iO 
067012 
067014 
067014 
067016 
067020 



000006 



000130 
067022 
177777 

001130 
067061 
177777 



067022 
067022 



10536 
10537 
10538 
10539 
10540 
10541 



067172 
067174 
067174 
067176 
067200 
067202 
067204 
067206 
067210 
067212 



000010 

023630 
033132 
034164 
035516 
041450 
052716 
056540 
060462 
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.SBTTL SOFTyARE PARAMETER COOING SECTION 



SEO 229 



THE SOFTWARE PARAMETER COOING SECTION CONTAINS MACROS 
THAT ARE USED BY I HE SUPERVISOR TO BUILD P-TABLES. THE 
MACROS ARE NOT EKECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOU THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 



LSSOFT:: 



BGNSFT 

.WORD L10077-LSSOFT/2 



10521 






10522 






10523 067022 


105 


116 


10524 067061 


111 


116 


10525 067111 


120 


105 


10526 067141 


120 


105 


10527 






10528 






10529 






10530 






10531 






10532 






10533 






10534 






10535 067172 







101 
110 
122 
122 



L10077: 



SPN1: 
SPM4: 
SPH6: 
SPM7: 



GPRML 

.WORD 

.WORD 

.WORD 

GPRML 

.WORD 

.WORD 

.WORD 

GPRMD 

GPRND 

ENDSFT 

.EVEN 



SPMl .0.-1, YES 

TSCODE 

SPH1 

-1 

SPM4. 2.-1. YES 

TICODE 

SPM4 

-1 

SPM6.4.D.7777.0.7777.VES 
SPM7,6.D,7777,0.7777.yES 



;GET RAM DUMP FLAG 



: GET ITERATION CONTROL. 



; GET LOCAL ERROR LIMIT 
; GET GLOBAL ERROR LIMIT 



.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 

.SBTTi. 



'ENABLE N7454 RAM DUMP ON ERROR* 
* INHIBIT ITERATIONS 
'PER TEST ERROR LIMIT * 
'PER UNIT ERROR LIMIT ' 

PATCH AREA 



DISPATCH TABLE 

MOVE TO FRONT OF PROGRAM FOR RELEASE 



DISPATCH TESTNO 

.WORD 8 
LIDISPATCM:: 

.WORD T1 

.WORD T2 

.WORD T3 

.WORD T4 

.WORD T5 

.WORD T6 

.WORD T7 

.WORD T8 



FINALLY A GEKEROUS PATCH AREA. 

AND AN ADJUSTMENT TO ACCOUNT FOR THE 'lASTAD BIT7" HACK 
DESCRIBED IN "SUPPRG.MEM" (FOR REV C). 



CZTUXAO TU80 FRONT END PRT B 
PATCH AREA 

10543 

10S4A 0672U 

10545 

10546 

10547 

10548 

10549 0672U 
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SEO 210 



PATCH:: 



10550 
10551 
10552 
10553 
10554 
10555 



10556 
10557 
10558 
10559 

10560 
10561 
10562 



067214 
067216 
067220 



067220 
067220 
067220 
067222 
067224 
067224 
067226 
067230 
067232 
067232 
067232 



067232 
000005 



LSLAST:: 



.EVEN 

.IF NZ,. i377 

1377*1 
.ENDC 

LASTAD ;SET LAST USED ADDRESS. 

.EVEN 

.WORD TtFREE 
.WORD TtSIZE 

.SBTTL HARD CODED P-TABLE 
DIAGNOSTIC IS PRE-PARANETERIZED PER THIS TABLE 
1 



000000 
000003 

172522 
000224 
000240 



000001 



L10100: 



BGNSETUP 
BGNPTAB 
.UORD 0 

.WORD L10102-./2-1 



L10102: 



.UORD 
.UORD 
.WORD 
ENDPTAB 

ENDSETUP 

.END 



172522 

224 

PRIOS 



CZTUkAO TUttO fRONT 


END PRT B 
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SYMBOL 


TABLE 










ADO&SR 


0117&2 G 


CSAU » 


000052 


0EBU6N 


011454 


AOR a 


000020 6 


CSAUTQs 


000061 


DEVCNT 


002166 G 


AMBTSS 


006S2S 


CSBRK = 


C00022 


OEVDRO 


023560 


ASSEW* 


000010 


CSBSEGs 


000004 


DEVNRD 


0?3477 


A1716 « 


000003 


CSBSUBs 


000002 


OEVNXR 


023«15 


BADOAT 


oo3no 6 


CSCEFG* 


000045 


DEVONL 


023345 


BAOSSR 


016534 6 


CSCLCK* 


000062 


DEVSUN 


023310 


BAR » 


174402 


CSCLEA* 


000012 


DFPTBL 


002124 G 


BENBSU 


002174 6 


CICLOS* 


000035 


DIA6NC* 


000000 


BIE * 


040000 


C$CLP1« 


000006 


DLCYL « 


000177 


BITO « 


000001 G 


CtCVEC* 


000036 


DLDNER« 100200 


BITOO « 


000001 6 


CSOCLN* 


000044 


DLERR « 


177730 


BIT01 ■ 


000002 6 


CtOODU« 


000051 


DLGETS« 


000004 


BIT02 « 


000004 6 


CSDRPT* 


000024 


DLRDHD« 


000010 


BIT03 « 


000010 G 


CSDU > 


000053 


DLRONH* 000016 


BIT04 > 


000020 G 


CSEDITs 


000003 


DLSR e 


000013 


BITOS « 


000040 G 


CSEROF* 


000055 


OLUN « 


000006 


B1T06 « 


000100 G 


OERHRs 000056 


DSBINT 


017040 


BITU7 « 


000200 G 


C$ERRO« 


000060 


DUAD12 


004541 


?1T08 « 


000400 G 


C$ERSF« 


000054 


OUFLG 


003060 G 


BIT09 . 


001000 G 


CSERSO* 


000057 


Dumv 


003030 


Bin « 


000002 G 


CSESCA> 


000010 


EF.CONs 000036 6 


B1T10 > 


002000 G 


CSESEG* 


000005 


EF.NEU> 


000035 6 


B1T11 ' 


004000 6 


CSESUB* 


000003 


EF.PURc 000034 6 


BIT12 « 


010000 G 


CSETST* 


000001 


EF.RES* 


000037 G 


BIT13 « 


020000 G 


CSEXlTx 000032 


EF.STA* 


000040 G 


BITU » 


040000 6 


C$GETB« 


000026 


EMAXOU 


017661 


Bins « 


100000 G 


C$GETU« 


000027 


EN s 


000000 


B1T2 > 


000004 G 


CSGHAN* 


000043 


ENAINT 


017006 


BITS > 


000010 G 


CSGPHR* 


000042 


ENVIRN 


021516 


BIT4 « 


000020 G 


CSGPLO« 


000030 


EPRTStf 


002146 G 


BITS « 


000040 G 


C$GPRI« 


000040 


EPRT1 


005755 


BIT6 « 


000100 G 


CSINIT* 


000011 


EPRT2 


005672 


BIT? « 


000200 6 


CSINLP« 


000020 


EPRT3 


006014 


BIT6 « 


000400 G 


CSfUNI* 


000050 


ERCM 


011555 


BIT9 * 


001000 G 


CSffEn « 


000031 


ERRHI 


002202 G 


BOE * 


000400 G 


CWSG « 


000023 


ERRK 


017640 


BRINIT 


0li43SS 


CSOPEN« 


000034 


ERRLO 


002204 6 


BSELO » 


000000 


CSPNTB« 


000014 


ERRNO « 


001442 


BSEL1 « 


000001 


C$PNTF« 


000017 


ERRVECs 000004 6 


CNKAMi 


016700 


CSPNTS« 


000016 


ERTABE 


003330 


CHKNAN 


021366 G 


CSPNTX* 


000015 


ERTABL 


003130 


CNKTSS 


017220 


CSQIO s 


000377 


ESUN 


017642 


CKOROP 


020136 


C$RMU« 


000007 


EVL * 


000004 6 


CKENAX 


017764 


CSREFGs 


000047 


EXBCNTs 


000010 


CKMS6 


011202 G 


C$RESE« 


000033 


EXP8RE 


016336 G 


CKNSG2 


011322 G 


C$REVI« 


000003 


EXPO 


002176 G 


CKRAN 


010S24 G 


CSRFLA* 


000021 


EXPGOT 


004431 


CKRAN2 


011100 G 


CtRPT « 


000025 


EXP6T2 


004465 


CMPMEN 


020542 


CSSEFGs 


000046 


EXPnSG 


002266 G 


CONFIG 


020204 


CSSPRl* 000041 


EXPREC 


016330 G 


COUNT 


002254 6 


CSSVEC* 


000037 


EXTA 


005232 


CSR « 


174400 


C$TPRIs 


000013 


EXTEND 


005230 


CSRADO 


002154 G 


DAR s 


174404 


ESEND = 


002100 


CTAB 


003116 G 


DATA 


002256 6 


ESLOAD- 


000035 


CTABE 


003130 G 


DATAFL 


015047 


FATCHK 


020064 


CTA8N 


003116 G 


DATASC 


021120 


FATERR- 


000060 



H 2 
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FATFLG 


002170 6 


HIMEH « 


007776 


FERCN 


011544 


HOE « 


100000 6 


FIFEXP 


012012 6 


HPH1 


066700 


F1F1NS 


012064 


HPN2 


066727 


FIF2NS 


012133 


HPM3 


066753 


FILLNE 


020356 


IBE « 


010000 G 


FNOINT 


004113 


IDU « 


000040 G 


FORCER 


002144 G 


lER * 


020000 G 


FREE 


003072 G 


IFAULT 


004154 


FREEHI 


003076 


INCERK 


017726 


FRESIZ 


003074 G 


INTCPC 


017004 


FUSI 


004015 


INTFLA 


017001 


FSAU « 


000015 


INTHAS 


017000 


FSAUTO« 


000020 


INTR 


017052 G 


FSBGN « 


000040 


INTREC 


002172 6 


FSCLEA* 


000007 


INTVEC 


017002 


F$DU * 


000016 


INTX 


004176 


FSEND « 


000041 


lOKCKI* 000200 


F$HARD« 


000004 


lOKSTP* 


000001 


F$HW « 


000013 


IPRI 


002160 G 


FSINITs 


000006 


ISR * 


000100 G 


FSJNP * 


000050 


IVEC 


002156 6 


FSHOO e 


000000 


IXE ' 


004000 G 


FMS6 « 


000011 


ISAU s 


000041 


F$PROT« 


000021 


ISAUTO» 


000041 


F$PUR « 


000017 


ISCLN = 


000041 


FSRPT * 


00U012 


I$DU - 


000041 


FSSEG = 


000003 


ISHRD = 


000041 


FSSOFTc 


000005 


ISINIT* 


000041 


FSSRV « 


000010 


isnoD « 


000040 


F$SUB « 


000002 


I MSG s 


000041 


FSSM « 


000014 


ISPROTs 


000040 


FtTESTs 


000001 


ItPTABx 000041 


GODAT 


003112 6 


itpyR = 


000041 


GERRNA 


002142 G 


ISRPT = 


000041 


GETPAT 


021062 6 


ISSEG = 


000041 


GETSEL 


021144 G 


ISSETU- 


000041 


GSCNTOs 


000200 


I$SFT = 


000041 


GiDELNs 


000372 


I$SRV s 


000041 


GSDlSPs 


000003 


ItSUB X 


000041 


GSEXCPs 


000400 


UTST » 


000041 


GSHJLIs 


000C02 


JSJNP s 


000167 


GSLOLls 


000001 


KIPAROs 


172340 


GSNO - 


000000 


KIPARU 


172342 


GSOFFSs 


000400 


KIPAR2= 


172344 


GSOFSls 


000376 


KIPAR3S 


172346 


GSPRMAs 


000001 


K1PAR4S 


172350 


G$PRNOs 


000002 


KIPAR5S 


172352 


GSPRHLs 


rooooo 


KIPAR6S 


172354 


GIRADA» 


000140 


KIPAR7S 


172356 




vwWWV 


KIPDROb 


172300 


GSRADD* 


000040 


KlPDRIs 


172302 


GSRAOLs 


000120 


KIP0R2S 


172304 


GSRADOs 


000020 


K1PDR3S 


172306 


GSXFER: 


000004 


K1P0R4- 


172310 


GSYES = 


000010 


KIPDRS- 


172312 




001400 


K1PDR6» 


1723U 
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K1P0R7S 


172516 


LtSOFT 


067006 G 


L10061 


043530 


KTENAB 


003102 6 


LSSPC 


0020S6 G 


L10062 


044166 


KTfLC 


003100 6 


LlSPCP 


002020 G 


Li 0063 


044614 


KTINIT 


021604 


LISPTP 


002024 6 


LI 0064 


0'-S242 


KTOFf 


020230 


LSSTA 


002030 G 


Li 006$ 


045o24 


KTON 


0^0212 


LSSU 


002134 G 


Li 0066 


046300 


LtRRNA 


002140 6 


LSTEST 


002114 6 


LI 0067 


046S42 


LISTALs 


000001 


LSTIML 


002014 G 


Li 0070 


047034 


L0£ s 


A t AAAA «• 

040000 G 


LSUNIT 


002012 6 


LI 0071 


047324 


LOOPCN 


AAra4 < ^ ^ 

00^164 G 


• 4 AAAA 

Li 0000 


002132 


« A AA4A 

LI 0072 


OSOOOO 


LQOPCO 


0127S0 


Li 0001 


002144 


Li 0073 


0S6536 


LOOPFL 


005114 G 


LI 0002 


AAf% A^ 

005226 


> A A A"k J 

Li 0074 


A « A J ^ A 

060460 


LOT » 


AAAA4 A m 

000010 G 


i 4 AAA V 

LI 0005 


011666 


a A AA W 

Li 0075 


A4 t A t M 

062044 


L»ACP 


002110 G 


i 4 AAA 4 

LI 0004 


A4 A V« M 

011716 


« A AA4^ 

Li 0076 


A« M 4AA 

066700 


L»APT 


002056 G 


i 4AAAf 

LI 0005 


A4 4 W/ 

011734 


LI 0077 


A^ VAA A 

067022 


L»AU 


022544 G 


i 4 A AAX 

LI 0006 


A4 4 9/ 

011742 


A AAA A A 

L10100 


A A 9 A A J 

067224 


LSAUT 


AA^AVA 

002070 G 


i 4 A AAV 

LI 0007 


A4 4 9^ A 

011760 


« A AA At 

L10102 


A^ 9A9A 

067232 


LvAUTO 


0227S0 6 


i 4 AA4 A 

LI 0010 


A4 4 

011776 


MENADD 


A A V » 

013S76 6 


L»CCP 


AA14AX 

002106 G 


• 4 A A4 4 

L10011 


A4 '%A4 A 

012010 


NENASC 


021335 


LtCLcA 


0Z3024 G 


i 4AA4*% 

L10012 


012062 


MENERR 


AAA AA a 

021262 


L»CO 


AA*%AT^ /* 

002052 G 


1 4 AA4 T 

LI 001 5 


A4 OlVt 

012232 


HENRES 


AAA 9^ t 

021364 


LwtPO 


AA9A1 1 ^ 

002011 G 


1 4 AA4 t 

LI 001 4 


A4 '^9/ / 

012746 


NES6FA 


AAA94X 

002716 G 


L*ucSC 


003342 G 


1 1 AA1 C 

LI 001 3 


A4 VC9# 

013574 


NESBFN 


A4 / A 4 "9 

014617 


LvOtSP 


002076 6 


1 4 AA4 A. 

L10016 


A4 V/.4 A 

013616 


HE SHEA 


A4 CAA<) 

01 5002 


Live VP 


AA<^A^A ^ 

002060 6 


i 1 AA4 9 

L10017 


A4 A.VS/ 

016554 


AA VAAPAII 1 

ninENU 


055552 


LvDISr 


067174 G 


1 4 AA9A 

LI 0020 


A4 / V/ 

016542 


(WVEC s 


AAAAf A 

000250 


1 AIM W 


0vi2116 G 


LI 0021 


A4 ATCA 

016350 


nPR = 


4 9/ J AX 

1 74406 


LWTP 


AA^A^ A f 

002040 G 


LI 0022 


A4/.VX'^ 

016362 


A rA_ 

NSA.FRs 


AAAAAX 

000006 


LWTYP 


AA^AT/ ^ 

002034 G 


i lAAH 

LI 0025 


A4 // A/ 

016404 


■A^ A AtA. 

HSA.NOs 


AAAAAA 

000000 


LtuU 


022642 G 


LI 0024 


A4// 

016432 


■Af A &IA^ 

NSA.NR* 


A AAA A/ 

000004 


LSDUT 


AAOA9^ 

002072 6 


1 4 AA9C 

LI 0025 


A4 /C9<^ 

016572 


nSA.VOs 


A A AAA *^ 

000002 


LwVTi 


AAXW£ ^ 

00^334 6 


LI 0026 


A4 94 A9 
017102 


nSGEXP 


A 4 4AAA 

012000 G 


L»cr 


002032 G 


• 1 AAVA 

LI 0050 


A9<)/ 9/ 

022474 


HSGLOO 


012706 G 


L»cMVI 


AA9A/ / f 

002044 G 


LI 0031 


022640 


HSGSTA 


012172 G 


Lit TP 


AA91A9 r 

002102 G 


LI 0052 


022746 


HSGSUB 


013S64 6 


LlEXPi 


002046 G 


t 1AAW 

LI 0053 


025022 


HS.ATTs 


000006 


LlcXP4 


AA'^AA/ ^ 

002064 G 


LI 0054 


025044 


NS.EXTs 


000200 


LIEXPS 


AA4AAA ^ 

002066 G 


LI 0055 


023306 


HS.RSDs 


000001 


LIHARD 


066646 6 


LI 0056 


An4 VA 

055130 


FIS.RSF« 000020 


LlHinE 


AAll tA ^ 

002120 G 


1 4 AAW 

LI 0037 


At/ <%^A 

024260 


MS.RSTs 


000010 


LIHPCP 


AA9A4A ^ 

002016 G 


• 4AAJA 

LI 0040 


A^C VAi 

02S304 


NBA 


002000 


LIHPTP 


AA9A^^ 

002022 G 


fl 4 AA/ 4 

LI 0041 


026460 


NEUPAS 


022176 


LiHy 


AA^4 U ^ 

002124 G 


■ 4 A AJ 

Li 0042 


026762 


NODEV 


003062 G 


LIICP 


AA91 AZ ^ 

002104 G 


< 4 AA/ V 

L10045 


ATAAV/ 

050054 


NOINIT 


004233 


LllNIT 


021746 G 


« 4 AA J / 

LI 0044 


AVAW/ 

050754 


NOINTR 


004117 


LvLADP 


002026 6 


fl 4 AA/ C 

LI 0045 


AV/4A^ 

054162 


NOITS 


002136 6 


LHAST 


067220 G 


1 4 AAlA 

LI 0046 


AVCC4 / 

055514 


NOMAN 


021422 


i ftl AAA 

LILOAP 


AA94 AA ^ 

002100 G 


I 4 AA/ 9 

L10047 


AV/ / ^/ 

054424 


NP.IR = 


000200 


LlLiM 


AA^A9^ f 

QQcQrk G 


1 4 AAfA 

LI 0050 


A/ 4 / / / 

041446 


NP. LOOs 


000040 


LMWcV 


AA9ACA /■ 

002030 G 


• 4 AAC4 

L10051 


AV/.4 4 / 

036114 


NP.OUTs 


000100 




AAJAAA H 


LlUv>c 


U303rc 


NP.URPs 


000020 


LtPRIO 


002042 G 


L100S3 


037000 


NSI 


0040S0 


LSPftOT 


021736 G 


L10054 


037266 


NSINIT 


00430S 


LlPRT 


002112 G 


L1005S 


037610 


NUL 


004425 


LSRtPP 


002062 G 


L100S6 


0S2714 


NULCR 


004426 


LlREV 


002010 G 


L10057 


042266 


NXn 


004000 


LlRPT 


023046 G 


L10060 


043034 


NXR 


003636 
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NXRERR 00S176 G 
NXRX U0367$ 
NXTU 022:10 
OFL * 000100 
ONEFILs 000001 
OSAPTSs 000000 
OSAU c 000001 
OSBGNR* 000001 
OSBGNS* 000001 
0$DU s 000001 
OtERRT« 000000 
0$GNSU« 000001 
OtPOINs 000001 
0$SETU« 000001 
O.ADRl 066S56 
O.ALL 065142 
O.AS 062636 
O.ASC 066125 
O.ASCI 064152 
O.BACK 063122 
O.BALL 065026 
O.BD 066126 
O.BKP » 000016 
O.BKPT 063150 
0.8RK 064456 
O.By 066106 
O.BYT 062674 
0.BYT1 062666 
O.CAD 066110 
O.CADV 065454 
O.CLGT= 000035 
O.CLSE 065752 
C.CONP 064312 
O.CR 066131 
O.CRET 062756 
O.CRLF 066004 
O.CRLS 066020 
0.CSR1 066122 
0.CSR2 066123 
O.CT 066600 
0.C1 064040 
O.DCD 062404 
O.DCDA 062762 
0.DCD8 063310 
0.DCD1 062424 
0.DCD2 062420 
O.DOT 066112 
O.DUNP 064072 
O.EFF 063476 
O.ERR 062374 
0.ERR1 063472 
O.FCHR 066552 
O.FCNT 066SS4 
O.FTYP 065570 
O.GET 065636 
O.GO 063666 
0.601 063744 



0.G02 063750 

0.NI6H 066546 

O.LG > 000010 

O.LGCH 066141 

O.LGOR 062536 

O.LOU 066544 

O.NOVE 064250 

O.NSK 066542 

O.ODT 062046 6 

O.OFST 063366 

O.OLD 062764 

0.0P1 062770 

0.0P2 063034 

0.0P2A 063042 

O.ORAB 062274 

O.ORPC 062252 

O.ORRB 062304 

O.P 066121 

O.PCS 062264 

O.PRNT 064410 

O.PROC 063766 

O.PROn 066134 

O.RALL 063312 

O.RCSRs 177560 

O.RDB 3 177562 

O.REG 066040 

O.REGT 062164 

O.REM 065312 

0.RS8 065246 

O.RSR 065216 

O.RSTT 065406 

O.S 066117 

O.SCAN 062430 

O.SENI 062630 

O.SEQ 066124 

O.SNGL 062354 

O.SPAC 065740 

O.STH ' 000340 

O.SVR 065156 

O.SVTT 065360 

O.SUCH 066550 

O.T 066120 

O.TBIT 063716 

O.TBT s 000020 

O.TCLS 062326 

O.TCSRs 177564 

O.TDB - 177566 

O.TL 066176 

O.TRTC 066206 

O.rVECs 000014 

O.TYPE 065724 

O.UIN 066622 

O.UPC 066536 

O.UPS 066540 

O.URO 066520 

O.USP 066534 

JLm 062702 
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O.UDFG 


066116 


PST32U 


O.URD 


062652 


PUNIT 


0.WRD1 


062716 


PW.D1U 


O.USCH 


063502 


PU.013* 


O.XXX 


0661U 


PU.D22* 


PASRPT 


022242 


PW.NOPs 


PATCH 


0672H 6 


PW.N01* 


PATDAT 


021116 


PU.RDE* 


PC. ERA* 002400 


PW.RDR* 


PC.IER« 


002000 


PU.RDSs 


PC.NOO* 001000 


PW.RFIs 


PC.REL* 


000000 


PV«.«CT« 


PC.REU* 000400 


PU.UFI' 


PKBCNT* 


000006 


PU.UFNs 


PKHI « 


000004 


PU.UNI* 


PKLOU * 


A AAA A ^ 

000002 


PW.UNPs 


PKTADD 


007264 


PU.UTRs 


PKTr W 


00/226 


P.ACK « 


B V T T 

PKTGET 


Af 1 99A ^ 

011720 G 


P.CMD * 


PKTFIeS 


011r4^ G 


P.COMT« 


PKTNEw 


00/321 


P.CVC = 


PICTRAn 


004643 G 


P.FHT = 


PKTddR 


0116r0 G 


P. FORMS 


PMT « 


tMW AAA r 

001000 6 


P.6ETS« 


BB AMBif 

PRARPK 


A4 VX9A 

01 3620 


P.IE * 


PWcXP 


016324 


P.INITr 


BBBMC f 

PRBnSu 


At A1 74 

016172 


P.NODEs 


PRBRcC 


At 

016326 


P.OPP » 


PRoTQi 


At ^0C7 


P.POSI* 


PRBTTc 


0l3r>6 G 


P. READ* 


PHI ■ 


AA9AAA r 

002000 G 


P. SUB * 


AA ff Al\f% 

PR I ADD 


AA77AA 
007 f 00 


P.WRIT« 


BB 1 A A 

PfvlAO 


AA77CA 
007 730 


P.URTCs 


BB ff BWB 

PRIBXU 


007332 G 


P.URTS* 


AA ff CAl 1 


AA7AAA 
007600 


QVP 


AB t T 


AA7AAA #* 

007060 G 


RAMASC 


DDI DAM 


UUr QUO 


RAMDAT 


PRITAP 


0100U 


RAMER 


PRITSS 


005264 


RAMERR 


PR I TO 


010064 


RAMEXP 


PRIXOR 


007462 G 


RANFHR 


PR 100 « 


000000 G 


RANFOR 


PR 101 « 


000040 G 


RAMHLD 


PRI02 


000100 6 


RANIOP 


PR 103 « 


000140 6 


RAMPD 


P .;04 ^ 


000200 6 


RANR5H 


PR 105 » 


000240 G 


RANSIZ 


PR106 * 


000300 G 


RANT AD 


PR107 « 


000340 G 


RBPCRA 


PRKSS 


014052 


RCVHIA 


PRNNO 


002264 G 


RCVLOA 


PRNSGE 


015406 G 


RDERR 


PRflSGO 


015566 


READ « 


PRNSG1 


01 5633 


READY « 


PRNS62 


015671 


RECMS6 


PROASC 


014677 


RECV 


PR1ASC 


014744 


REGSAV 
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003104 G 


REUIND 


010424 6 


022476 


RMCHBE« 


000167 


000021 


RMCHENs 


000200 


000022 


RMNS6B* 


000104 


000020 


RNMSGE* 


000117 


000000 


RMPKTB* 


000020 


000023 


RHPKTEs 


000027 


000024 


Rm « 


010000 


000001 


RWPACK 


010520 


000005 


SC ' 


100000 


000003 


SCE - 


020000 


000006 


SCME 


004711 


000004 


SrMENU 


061170 


000007 


SDELAY 


010320 


000010 


SEEK B 


C00006 


000011 


SELASC 


021330 


000002 


SELDATs 


000004 


100000 


SEL2 ' 


000002 


000037 


SETNAP 


020252 


000012 


SETU 


022274 


040000 


SFFMSG 


011736 G 


000140 


SFHERR 


003603 


000011 


SFIERR 


003550 


000017 


SFINS6 


011656 6 


000200 


SFPTBL 


002134 G 


000013 


SIFLA6 


005106 6 


007400 


SIMS6 


A« « ^ « A 

011610 


A«« A A AA 

020000 


SKIP 


A « A 

037610 


000O10 


SKIPT 


003352 


A AA AA« 

000001 


SOFINI 


016630 G 


A« aaaa 

010000 


SPACE 


010126 G 


AAA AAV 

000005 


SPM1 


067022 


AAAAA J 

000004 


SPM4 


067061 


000006 


SPM6 


0671 1 1 


002152 G 


SPM7 


067141 


A« M 

013766 


SRO » 


177572 


002206 6 


SRI s 


177574 


010626 G 


SR2 s 


177576 


016544 6 


SR3 « 


172516 


016364 6 


SSR s 


000200 


014526 


STATCO 


012234 


007636 


SVCGBLs 000000 


011010 


SVCINS* 


000000 


011014 


SVCSUB* 


000001 


011065 


SVCTAGc 


000000 


011012 


SVCTSTs 000001 


002246 G 


SSLSYMs 


010000 


016352 6 


SO. I DBS 


000010 


015114 


SO.IFBs 


000002 


002250 G 


SO.IFP« 


000001 


002252 6 


SO.lLDs 


00G020 


005104 


SO. IONS 


000040 


000014 


SO.IRDs 


000100 


000001 


SO.lRtfs 


000004 


002432 G 


SO. ISPs 


000200 


002200 G 


SLICES 


002000 


021022 


Sl.lEOs 


010000 
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SI.IFM* 


001000 


TST21I 


034006 


SI.IHEs 


000400 


TST22I 


035322 


Sl.IIDs 


004000 


TST23I 


041251 


SI.IIRs 


020000 


TST24I 


052462 


S1.I2RS 


040000 


TST391 


060452 


SI. PARS 100000 


TST40I 


061740 


S2.ATIS 


000010 


TTIBFRs 


177562 6 


S2.BTIS 


000004 


▼T I GSRs 177560 6 


S2.DIM« 


000200 


TTION 


061162 


S2.ILUS 000100 


TTI0N2 


055750 


S2.INR' 


000020 


TTIVECs 


000060 6 


S2.0UTS 


000040 


TTOBFRs 


177566 


S2.UNDS 


000003 


TTOCSR^ 


177564 


TBLENDs 003030 6 


TUV2A 


002000 G 


TCOASC 


006166 


TVECSA 


061164 


TCOCOD 


AA^ ^ M M 

006366 


TVSAV2 


053752 


TEMPI 


AAVA^ 4 m 

003064 G 


TSARGCs 


000001 


TEMP2 


003066 G 


TSCODEs 


001130 


TERCLSs 


AAAAA M 

000016 


T$ERRNs 


001442 


TESTNOs 


aaaaa a 

000010 


TSEXCPs 


000000 


TEXASC 


AA^ « 

006125 


TSFLAGs 


000040 


TFCASC 


A A^ V 

Q06227 


TtFREEs 


067232 


TIMEXP 


016406 G 


TSGMANs 


000000 


TIMS60 


016434 


TSHILIs 


000007 


TINERR 


011643 


TSLASTs 


000001 


TK8 s 


177562 


TSLOLIa* 


000000 


TKS s 


1 77560 


TSLSYMs 


010000 


TMP8FR 


AAAf ^ 

002576 6 


TSLTNOs 


000010 


TMPEND 


030762 


TSNESTs 


000000 


TNAM 


017566 


T$NSO s 


000000 


TPS s 


177566 


TSNSI s 


000005 


TPRISA 


061166 
1775£'» 


T$NS2 s 


000002 


TPS s 


TSPCNTs 


000000 


TPSAV2 


Af M 

053754 


TSPTAB* 


010101 


TRANST 


002134 6 


TSPTHVs 


000001 


TCftA r 

1 «OM " 


17777& fi 
1 f f f f o u 


TSPTNUs 


000001 


TSBAH s 


177777 G 


TSSAVLs 


177777 


TSBAL s 


177776 6 


TSSEGLs 


177777 


TSDB s 


177776 6 


TSSIZEs 


000005 


TSDBH s 


177777 6 


TSSUBNs 


000000 


TSDBL s 


177776 6 


TSTAGLs 


177777 


TSFCOD 


006726 


TSTAGNs 010103 


TSREJ s 


000006 


TSTENPs 000011 


TSSOEF 


006276 


TSTESTs 


000010 


TSSR « 


000000 6 


T$TSTM« 177777 


TSSRBI 


003400 G 


TSTSTSs 


000001 


TSSRFO 


006105 


TSSAU s 


010031 


7SSRH * 


000001 6 


TSSAUTs 


010033 


TSSX 


003716 


TSSCLE* 


010034 


TST8LK 


002720 G 


TSSDATs 


010102 


TSTCNT 


002162 6 


TSSOU « 


010032 


TSTEND 


017602 


TISHARs 


010076 


TSTFLA 


002260 6 


TSSHW s 


010000 


TSTLOO 


017340 6 


TSSINls 


010030 


TSTPTR 


002262 6 


TSSMSG* 010025 


TSTSET 


017372 G 


TWC s 


000001 


TST17I 


051216 


TitPROs 


Q1QQ27 
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TtSPTA* 010101 


T210Ly 


033566 


T23TH 


040226 


T3.1 


034224 


T39TAD 


057230 


TSMPT« 


010035 


T21L00 


033172 


T23TNA 


040315 


T38ASC 


056471 


T39UPN 


0602*4 


TUSOFs 


010077 


T210FL 


033765 


T23VCK 


041035 


T38ASN 


056510 


T39UR 


05^762 


TSSSRV 


010026 


T21PAC 


033440 


T23yB 


0/.0002 


T38AS0 


056366 


T39URT 


060161 


TS$SUB« 


010072 


T21PK2 


033550 


T23UD 


0C0U20 


T38AS1 


056433 


T4 


035516 G 


TSSSU * 


010001 


T21RES 


034030 


T23U0C 


040733 


T38BFR 


054006 


T4.1 


035566 


TSSTESb 


010075 


T21RT2 


034120 


T23UDD 


040644 


T38BS0 


054000 


T4.2 


036132 


T1 


023630 G 


T21SSR 


033570 


T23U0R 


040022 


T38BS1 


054001 


T4.3 


036610 


T1.1 


023666 


T21S2 


033562 


T23USS 


041162 


T38BS2 


054002 


T4.4 


037016 


T1.2 


02427A 


T21S3 


033564 


T24AN3 


051450 


T38CNT 


056534 


T4.5 


037304 


T1 .3 


025320 


T22An3 


034725 


T24BA 


052002 


T38DAT 


056024 


T40NE 


061673 


Tl .4 


026A74 


T22BFR 


034512 


T24BFR 


050060 


T38DLY 


053756 


T40NSR 


061754 


Tl .5 


026776 


T22BF2 


034610 


T24BF2 


050200 


T380TA 


054500 


T5 


041450 G 


Tl .6 


030050 


T22BS0 


034610 


T24B0T 


051043 


T38EAI 


054506 


T5.1 


041514 


T178EN 


M99AM4 

033002 


T22BS1 


034611 


T24BS0 


050200 


T38EB 


054462 


T5.10 


046560 


T17BPR 


032662 


T22DAT 


034500 


T24BS1 


050201 


T38I0 


055526 


T5.11 


047052 


T17BFS 


032702 


T22FOR 


034624 


T24C0N 


050212 


T38MBP 


056064 


T5.12 


047342 


T17CLE 


032564 


T22LOO 


034324 


T24DAT 


050050 


T36^:S6 


055430 


T5.2 


042304 


T17CLR 


M9 '%99« 

032376 


T220FL 


035025 


T240LY 


050216 


T38NS2 


055364 


T5.3 


043052 


T17DAT 


032650 


T22PAC 


034470 


T24DTA 


051110 


T38HS4 


055144 


T5.4 


043546 


T170Lt 


033126 


T22PK2 


034600 


T24E0T 


051176 


T38NS5 


055223 


T5.5 


044234 


T170T2 


033020 


T22P0S 


034622 


T24ILA 


050572 


T38NE 


054550 


T5.6 


044632 


T17IXE 


A9A 4 4 J 

031 114 


T22RD 


034616 


T24L0N 


052142 


T380FL 


055110 


T5.7 


045260 


117EXP 


030772 


T22RES 


035356 


T24LOO 


041514 


T38aNL 


055046 


T5.8 


045642 


T17EXS 


031012 


T22RT2 


M9 9 # 9 A 

035450 


T24L0P 


052224 


T38PAC 


053770 


T5.9 


046316 


T17L00 


024046 


T22RWJ 


035174 


T24L00 


050656 


T38PK2 


054470 


T6 


052716 G 


TITMSK 


030766 


T22SSR 


034630 


T24L0R 


050272 


T38PK3 


05h520 


T7 


056540 G 


T17PAC 


032640 


T22S2 


034612 


T24NEF 


050220 


T38PK4 


054540 


T8 


060462 G 


T17PK2 


A A 

033010 


T22S3 


034614 


T24NXH 


050431 


T38RES 


056026 


UAH * 


000200 G 


T17RPI 


032544 


T22TN 


035100 


T240FL 


051515 


T38SI2 


054546 


UNITN 


002150 G 


T17RSF 


032442 


T22VCK 


035247 


T24PAC 


M9MM 4 M 

050040 


T38SST 


055300 


UNREC * 


000006 


T17RtM 


031235 


T22URT 


034620 


T24PBP 


052306 


T38TAD 


054000 


USI 


004021 


T17SET 


032604 


T23AN3 


040523 


T24PK2 


050150 


T38ULE 


054752 


UAITF 


017104 G 


T17SMP 


032464 


T23BA 


041110 


T24PK3 


050170 


T38W0K 


055470 


UC.IFAs 


000200 


T17$R0 


032422 


T23BFR 


037670 


T24RB 


050172 


T38yR 


054542 


UC.IFEs 


000002 


T17SSR 


M9A A^ 9 

031263 


T238F2 


040012 


T24RES 


052530 


T38yRL 


054711 


UC.IGOs 000001 


T17UF0 


031 114 


T23BS0 


040012 


T24RN 


050206 


T38yRT 


054625 


UC.IRE* 000010 


T17UF1 


A9 AiVa A 

0S2S10 


T23BS1 


040013 


T24miC 


051375 


T39BFR 


057236 


UC.IRII« 000004 


T171CH 


M94 ^ M9 

031603 


T23C0N 


040024 


T24RT2 


052622 


T39BS0 


057230 


UC.IOTs 


000100 


T172CH 


031665 


T23DAT 


037660 


T24RT3 


052664 


T39BS1 


057231 


UC.IITs 


000040 


T172S$ 


031320 


T23E0T 


040150 


T24RtM 


051326 


T398S2 


057232 


UC.I5RX 


000020 


Tl 73CH 


031761 


T23ET 


040063 


T24SSR 


050737 


T390AT 


060372 


UF.IED« 000010 


T175S$ 


M9« 9^ « 

031364 


T23L00 


035566 


T24SZ 


050176 


T390LY 


057206 


UF.IERs 


000004 


T174CII 


032045 


T230FL 


040571 


T24S2 


050202 


T39DTA 


M9 999M 

057730 


WF.IHI* 


000200 


T174S$ 


M9A « 9A 

03US1 


T23PAC 


037650 


T24S3 


050204 


T39EA] 


057736 


JF.IREs 


000040 


• A 99 AM 

T175CH 


A9AA 9A 

032130 


T23PIC2 


037760 


T24Tfl 


051253 


T39NCL 


M S M9 A V 

060313 


UF.IUFs 000020 


• A 99» J> 

T175SS 


M9A J 9 a 

031474 


T23PIC3 


O'lOOOO 


T24TRL 


052374 


T39NE 


057773 


UF.IVRs 000100 


T176CH 


A9 AAM A 

032204 


T23RES 


041266 


T24VCK 


051727 


T39NFL 


057770 


UF.13R* 


000002 


1 1 f D«> 


AVI 


T231WC 


040450 


T24UB 


050172 


T390F2 


060052 


UF.I4RS 


000001 


n77CH 


032312 


T23RSZ 


040010 


T24U0C 


051656 


T390N2 


M^ MA 4 M 

060116 


URTCHR 


010322 G 


T2 


033132 6 


T231)T2 


041360 


T24UDD 


051570 


T39PAC 


057220 


yRTERR 


005011 


r21Ml5 


033665 


T23RT3 


041422 






T39PK2 


MV 99 AM 

057720 


URTNSG 


004754 


T21BFR 


033460 


T23miN 


040401 


T24UDF 


050515 


T39PK3 


M 9999 A 

057750 


XFERAS 


016574 


T21BF2 


033560 






T24U0G 


050342 


1 3TI^* 


A<(77<kA 
U3r f Dv 


XNXN 


017260 


T21BS0 


033560 


T23S2 


040006 


T24U0R 


050210 


T39RES 


060374 


XORBFO 


007414 


T21BS1 


033561 


T23S2 


040014 


T24WSS 


052053 


T39RL 


060370 


XORFOR 


007532 


T210AT 


033450 


T23S3 


040016 


13 


0?*U* ? 






XSTO » 


QQOOQ&& 



SEQ 234 



CZTUXAO TU80 FRONT £N0 PRT B 
SYMBOL TABLE 



NACRO HI 200 29-flAR-83 13:32 PAGE 



XSTl s 
XST2 . 
XST3 s 
XST^ « 
XS06OT« 
XSOCON 
XSOEOTs 
XSOIE « 
XSOILA* 
XSOlLCs 
XSOLET* 
XSOnOT* 

. ABS. 



000010 
000012 

oooou 

000016 
000002 
01S161 
000001 
000040 
000400 
001000 
020000 
000200 



067232 
000000 
ERRORS DETECTED: 



000 
001 



XSONEFs 

XSOOMLs 

XSOPED* 

X$ORLL> 

XSORLSs 

XSOTMCs 

XSOVCK* 

XSOWLE* 

XSOVLKs 

XS1C0N 

XS2C0N 



002000 
000100 
OOOO'iO 
010000 
040000 
100000 
000020 
004000 
000004 
015226 
015273 



XS3C0N 

xxcom 

XSALVA* 
XSFALS« 
XSOFFS* 
XSTRUE* 
XI. COR* 
Xl.DLTs 
X1.NBZ« 
XI.RBP* 
Xl.SPAs 
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015340 
003070 
000000 
000040 
000<»00 
000020 
020000 
100000 
017375 
OOOAOO 
040000 



D 3 
141-6 



SEO 235 



X1.UNC* 000002 
X2.BUF* 000100 
X2.EXT> 000200 
X2.0PM« 100000 
X2.RCE* 040000 
X2.REV> 000077 
X2.SPAS 035400 
X2.UNI* 000007 
X2.UCF« 002000 
X3.DCKS 000010 
X3.MB2* 000006 



X3.MDE« 177400 
X3.0PI* 000100 
X3.REV* 000040 
X3.RIB* 000001 
X3.SPA* 000200 
X3.TRF- 000020 
X4.HSP* 100000 
X4.MBZ* 017400 
X4.RCE* 040000 
X4.TSM* 020000 
X4.URC« 000377 



